How to pass object as parameter

[bamsey2k1]

How to pass Object or Record to PascalScript as function parameter

function Test(Sender: TObject);
begin
//manipulate Sender
end;

Now i'm getting Invalid parameter exception

[maxkleiner]

you mean a cast or methodpointer?:
function Test(Sender: TObject): boolean;
begin
//manipulate Sender or cast it
TForm(sender).tag;
end;

[bamsey2k1]

i mean pass TObject from DelphiCode To PascalScript

vParams is array of Variant so it can't held an Object
ProcNo := TPSExec(fExec).GetProc(TbtString('test')); if ProcNo > -1 then TPSExec(fExec).RunProcP(vParams, ProcNo);

is there another way to call function with TObject parameter and return this function Result?

[maxkleiner]

My first reaction asking you why you are storing TObjects in a list of variants, but assuming you have a good reason (maybe to call class methods in PS)! You can't store plain objects as a variant. But you can store interfaces.
You can also cast TObject to Pointer to Integer and store that as Int. But i'm not sure if that's what you really want.

``` for i:=0 to High(varArray) do MyProcedure (TObject(varArray[i]));