одномерный массив n-элементов

[serj-07]

Здравствуйте, подскажите как в ShowMessage вывести сразу все элементы одномерного массива.
Спасибо.

[Sazary]

Сформировать строку.
Пример:

procedure TForm1.Button1Click(Sender: TObject);
var a : array[1..5] of integer;
s : string;
i : integer;
begin
for i:=1 to 5 do
 a[i] := i;
s := '';
for i:=1 to 5 do
 s := s + IntToStr(a[i])+' ';
ShowMessage(s);
end;