{
Kullanicinin Gerek select, gerekse Update, Insert vb
komutlarini hatasiz calistirmak icin kullaniniz.
}
procedure TForm1.Button1Click(Sender: TObject);
begin
Query1.Close;
Query1.Sql.Text :=Memo1.Lines.Text;
try
Query1.Open;
except
on E: Exception do
if not (E is ENoResultSet) then // eger bunun disinda hata varsa
raise;
end;
end;