[nhr]

Спасибо, а как в ней возвратить значение?
вот она сама:

function TForm1.ExecuteDBQuery(const ADBName, ADBConnStr: string):string;
var i,j:integer;
s,s1,AConnectionString,AQuery:string;
begin
ADOQuery1.Active:=False;
ADOConnection1.Connected:=False;
try
ADOConnection1.ConnectionString:=AConnectionString ;
AdoCOnnection1.Connected:=True;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add(AQuery);
ADOQuery1.Open;
StringGrid1.Cells[1,1]:=ADOQuery1.Fields[0].AsString;
finally
if ADOquery1.Active Then ADOquery1.Close;
ADOConnection1.Connected:=False;

end;