[T@nker]

как сделать чтобы каждое содержимое динамического компонента Memo отображалось в отдельном листе Excel (код приведён ниже)

Код:

procedure TForm3.BitBtn1Click(Sender: TObject);
var memes : Integer;
  i,j:Cardinal;
  S:ShortString;
classprint : integer;
memoline : integer;
begin//d
classprint := 1;
if action.Caption = 'publish' then
begin
Ap := CreateOleObject('Excel.Application');
//Ap.Workbooks.Open('events.xls');
Ap.Workbooks.Add;
//classprint  := classid;
for j:=0 to Length('class') do
begin
try
ap.Worksheets[classprint+1].Select;
except ap.Worksheets.New;
end;
For i:=0 to Groupbox1.ControlCount-1 do
  begin
    S:='';
if (Groupbox1.Controls[i] is TMemo) then
begin
    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;
end;
inc(classprint);
end;
//Ap.Worksheets[memoline].Name := clchoose.Items[memoline];
Ap.Visible := True;
end;
end;
end;//d