Как узнать ID?

procedure TForm1.Button1Click(Sender: TObject);
 var
   ID : string;
begin
  ID := ADOQuery1.FieldByName('g_id').AsString;
  with qryDelete do
  begin
    SQL.Clear;
    SQL.Append(' select *  '+
               ' from Gruz g inner join tip_gruz t  '+
               ' on g.g_id=t.t_griz_id '+
               ' WHERE g_id = '''+ ID +'''');
 
   Open;
  end;
  if qryDelete.RecordCount<>0 then
  begin
    MessageDlg('Нельзя удалить это данных', mtError,[mbOK], 0);
    Abort;
  end
  else
  if qryDelete.RecordCount=0 then
  begin
   //    Удаляем
  end;
end;

procedure TForm1.Button21Click(Sender: TObject);
var n:integer;
begin
Query1.Close;
  Query1.SQL.Clear;
   Query1.SQL.Add('select G.ID_TIP, T.ID from TIPGRUZA T, GRUZ G WHERE (G.ID_TIP=T.ID)');
    Query1.Open;
     n:=Query1.RecordCount;
 
if n>0 then
  MessageDlg('Удалю', mtError, [mbOK], 0)
else
  MessageDlg('Не удалю', mtError, [mbOK], 0);
 
end;

Query1.Close;
Query1.SQL.text:='select G.ID, G.NAME, T.NAME from GRUZ G left join TIPGRUZA T on (g.ID_TIP=t.ID)';
Query1.OPEN;

Query2.Close;
Query2.SQL.text:='select T.ID, T.NAME from TIPGRUZA T';
Query2.OPEN;

query3.sql.text := 'select count(*) as C from GRUZ where ID_TIP='+Query2.FieldByName('ID').asString;
query3.sql.open;
if query3.fieldByName('C').AsInteger>0 then
  showMessage('Нельзя удалять')
else
begin
  /// удаление
end;
query3.close;