if Adotable.isEmpty then
   //input
else
  //edit

if Adotable.recordcount=0 then
   //input
else
  //edit

  with ADOQuery1 do
  begin
      sql.Text := 'select * from bintangbintang where bintang = ' + QuotedStr('bintang');
      open;
  end;
  if ADOQuery1.RecordCount = 0 then
  begin
      // ini kalo kosong
  end
  else
  begin
      // ini kalo ada isinya
  end;

OOT: @jajang: Tolong perbaiki bagaimana penulisan judul post Anda, gunakan penulisan yang lazim... ! Dan sekali lagi, pahami dan laksanakan RULE forum. thread dipindahkan.