begin
with ADOQuery1 do
    begin
    SQL.Clear;[i]
    ===del;ed====[/i]
    SQL.Clear;
    Open;
    if ADOQuery1.RecordCount=0 then
    ShowMessage('Data Tidak Ketemu');
    edit1.clear;end;end;

with ADOQuery1 do 
begin 
  SQL.Text:= 'some query with where clause'; 
  // meng-assign ke SQL.Text otomatis akan menghapus semua statement query sebelumnya (SQL.Clear;)
  
  Open; 
  if ADOQuery1.IsEmpty then 
    ShowMessage('Data Tidak Ketemu'); 
end;

with ADOQuery1 do 
begin 
  SQL.Text:= 'some query with where clause'; 
  // meng-assign ke SQL.Text otomatis akan menghapus semua statement query sebelumnya (SQL.Clear;)
  
  Open; 
  if ADOQuery1.IsEmpty then 
    ShowMessage('Data Tidak Ketemu'); 
end;

with ADOQuery1 do 
begin 
  SQL.Text:= 'some query with where clause'; 
  // meng-assign ke SQL.Text otomatis akan menghapus semua statement query sebelumnya (SQL.Clear;)
  
  Open; 
  if ADOQuery1.IsEmpty then 
    ShowMessage('Data Tidak Ketemu'); 
end;

    SQL.text:=('delete');
    ExecSQL;
    close;
    SQL.text:=('select * from table1');
    Open;
    if ADOQuery1.isEmpty then
    ShowMessage('message gna muncuL');
    edit1.clear;

   SQL.text:=('delete');
    ExecSQL;
    close;
    SQL.text:=('select  from table1');
    Open;
    if ADOQuery1.isEmpty then
    ShowMessage('message gna muncuL');
    edit1.clear;

   SQL.text:=('delete');
    ExecSQL;
    close;
    SQL.text:=('select   from table1');
    Open;
    if isEmpty then  // modified by imunk
    begin
       ShowMessage('message gna muncuL');
       edit1.clear;
   end;