[Karsh]

Не очень понял, что требуется, но может такой пример вам чем-нибудь поможет...

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  arr: array of string;
  i: integer;
  s: string;
begin
  SetLength(arr, 6);
  for i:= 0 to 5 do
    arr[i]:= 'Строка ' + IntToStr(i+1);

  for i:= 0 to Length(arr)-1 do
    s:= s + arr[i] + #13#10;
  MessageBoxA(handle, pchar(s), '', 64);
end;