...
type
TForm1 = class(TForm)
Memo1: TMemo;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
public
procedure MostrarVector;
end;
var
Form1: TForm1;
Vector: array[1..50] of Integer;
implementation {$R *.dfm}
procedure TForm1.MostrarVector;
var
i: Integer;
begin
Memo1.Clear;
for i:= 1 to 50 do
Memo1.Lines.Add(IntToStr(Vector[i]))
end;