var MyExcel:OleVarient;
MyExcel:=GetActiveOleObject(Excel.Application);
MyExcel.Cells.Item[i,j] := 'test';