[T@nker]

Подскажите как сделать для вывода Memo в Excel? сложность в том что эти Mem'ы являются динамическими. Пробовал этот код - не прокатывает

Код:

var memes : Integer;
  i,j:Cardinal;
  S:ShortString;
classprint : integer;
memoline : integer;
begin//d
if action.Caption = 'publish' then
begin
Ap := CreateOleObject('Excel.Application');
//Ap.Workbooks.Open('events.xls');
Ap.Workbooks.Add;
classprint  := classid;
For i:=0 to Groupbox1.ControlCount-1 do
  begin
    S:='';
    memoline := 0;
    // (1)
    For memoline := 0 to Tmemo(Groupbox1.Controls[i]).Lines.Count do
    begin
   Ap.Cells[memoline+3,2] := Tmemo(Groupbox1.Controls[i]).Lines[memoline];
    //memoline := memoline + 1;
    end;
Ap.Worksheets[i+1].Name := clchoose.Items[i];
end;
end;
end;//d