Hi,
Mal angenommen deine Memos heißen Memo1 bis Memo 10.
Zu Testzwecken hier das Array als lokale Variable.
(ungetestet)
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
i,j: Integer;
arr: array[1..10,1..3] of String;
aMemo: TMemo;
begin
for i:=1 to 10 do
begin
aMemo := FindComponent('Memo'+IntToStr(i)) as TMemo;
If aMemo <> nil then
for j:=1 to 3 do
If aMemo.Lines.Count>=j then
arr[i,j] := aMemo.Lines[j-1]
else arr[i,j]:='';
end;
end;