[Red_Garry]

Ху-у-ух! Разобрался. Вот так работает:

Код:

procedure TForm1.Button1Click(Sender: TObject);
begin
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('select count(*) from tab where fam=:s1 and gor=:s2');
ADOQuery1.Parameters.ParamByName('s1').Value := edit1.Text;
ADOQuery1.Parameters.ParamByName('s2').Value := edit2.Text;
ADOQuery1.Active :=true;
ShowMessage(ADOQuery1.Fields[0].AsString);
end;

Большое спасибо за поддержку и советы!!!