请大家帮我把这段BCB代码转换成DELPHI的，谢谢，在线等着

[hoget]

int iRecords;
AnsiString SQL;
SQL=(WideString)Input;
ADOQuery1->Close();
ADOQuery1->SQL->Clear();
ADOQuery1->SQL->Add(SQL);
ADOQuery1->Open();
return DataSetProvider1->GetRecords(10,iRecords,grReset);
这是我用BCB时使用过的代码，我不知道用DELPHI怎么表达，请大家帮忙，谢谢。

[hoget]

没人会？我很急啊。谢谢啦，一经好用马上给分

[wenzm]

var iRecords:int;
SQL:AnsiString ;
SQL:=(WideString)Input;
ADOQuery1.Close();
ADOQuery1.SQL.Clear();
ADOQuery1.SQL.Add(SQL);
ADOQuery1.Open();
return DataSetProvider1.GetRecords(10,iRecords,grReset);
把return 改为函数名付值

[hoget]

SQL:=(WideString)Input;
这一行过不去啊，怎么办？
return怎么改能说得仔细一些吗？

[hoget]

[Error] Unit2.pas(50): '(' expected but ')' found
[Error] Unit2.pas(55): Undeclared identifier: 'return'
[Error] Unit2.pas(55): There is no overloaded version of 'GetRecords' that can be called with these arguments
[Fatal Error] Project1.dpr(7): Could not compile used unit 'Unit2.pas'

[copy_paste]

var
iRecords: integer;

ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add(Input);
ADOQuery1.Open;
Result := DataSetProvider1.GetRecords(10, iRecords, grReset);

[hoget]

[Error] Unit2.pas(54): There is no overloaded version of 'GetRecords' that can be called with these arguments
[Fatal Error] Project1.dpr(7): Could not compile used unit 'Unit2.pas'