[Yurk@]

Код:

Query.SQL.Text:='SELECT id, nick, msg FROM users WHERE id = :p_id';
Query.ParamByName('p_id').AsInteger := 666;
Query.Open;
if not Query.IsEmpty
then
begin
  //
end;