Variant Convert Na Object

Burhan_ast

Добри ден

у мне на маинформ ецт функсия мне надо их ползивит ц скрипт



Procedure TFrm_AnaForm.MainFormFunctionKayitKop(Tbl1, Tbl2 : TAdoQuery);
Begin
....
end;




Callmethdo
if MethodName = UpperCase('MainFormFunctionKayitKop') then
Begin
MainFormFunctionKayitKop(params[0], params[1]); // izdes ashibka patomushta params eto variant a mne TAdoQuery
end else

// AddMethod
Frm_Table.FS_fsScript1.AddMethod('procedure 'MainFormFunctionKayitKop(TblKaynak, TblHedef: TAdoQuery)', CallMethod);















//Ето sam скрипт

Var
tbl_stok, tbl_deneme : TAdoQuery;

Procedure compCreate;
begin
tbl_stok:=TAdoQuery.Create(nil);
tbl_Deneme:=TAdoQuery.Create(nil);
end;

procedure querysorgu;
Begin
Tbl_Stok.open;
Tbl_Deneme.open;
end;

procedure freecom;
begin
Tbl_Stok.Free;
Tbl_Deneme.Free;
end;


begin
compCreate;
querysorgu;
//Nado polzivit mainform function
MainFormFunctionKayitKop(Tbl_Stok, Tbl_Deneme);
freecom;
end;


я делою как абични адд метход и тагйи калл метход но получаю ашибка вариант тыпе и адо тып не мойиббит как мойна ползивит ?

спасибо

Бурхан Чакмак