[ApplicatiOn]

Код:

procedure TForm1.Button2Click(Sender: TObject);
var
i: integer;
begin
ListBox1.Clear;
for i:= 1 to n do
ListBox1.Items.Add(mas[i]);
ShowMessage('Загружено!');
end;