suchen eines bestimmten wertes in interbase datenbank

[Grumble]

hallo leute,

ich hab da ein problem den wert des primary keys in einer datentabelle zu finden. ich suche den wert der ID fuer ein bestimmtes feld in dem der name = einem suchstring ist.
ich hab dazu bisher folgendes

Delphi-Quellcode:

procedure TOpenProj.ExecIBSQL(ASQL: String;var Pid:integer);
begin
  with FDB.SQL_PROJEKT do try
    if not FDB.TR_FARce.InTransaction then FDB.TR_FARce.StartTransaction
    else if Open then Close;
    SQL.Clear;
    SQL.Add(ASQL);
    ExecQuery;

    Transaction.Commit;
  except
    Transaction.Rollback;
  end;
  Pid:= ??????
end;

ich rufe die procedure mit  ExecIBSQL(vSQL,gpid); auf
der uebergebene sql string setzt sich zusammen aus vSQL := 'SELECT ID FROM PROJEKT WHERE NAME=:'+listboxprojects.Items.Strings[ListBoxProjects.ItemIndex]; mein prob ist das ich nicht weiss wie ich nach dem execquery die gesuchte ID in die variable Pid schreiben kann.
koennt ihr mir da vielleicht n tip geben??

gruesse
Grumble