Analise o trecho de programa Delphi a seguir:

procedure TForm1.Vendedor1Click(Sender: TObject);
begin
  with Query1 do begin
    Close;
    SQL.Clear;
    SQL.ADD('SELECT * FROM PEÇAS');
    ExecSQL;
  end;
end;

É correto afirmar que: