Ввод последовательности чисел

[POPOV]

Здраствуйте ! Такая проблема...

Нужно ввести последовательность чисел с клавиатуры (кол-во чисел тоже вводится с клавы) и из этих чисел вычислить максимальное.

Вот как вычислить максимальное понятно, но как осуществить ввод самой последовательности никак не могу понять. На паскале было всё просто ( Там нужное кол-во раз было зацикленно сообщение "vv chislo", и после каждого нажимали Enter). А на Delphi используя кнопки ?? помогите пожалста..

[Air]

Если я всё правильно понял, то

кол-во, чисел которое надо ввести и сами числа вводишь в Edit и нажимаешь кнопку.

К примеру:

...
implementation
var i:integer;
    ArrInt:array of integer;

procedure TForm1.Button3Click(Sender: TObject);
begin
i:=i+1;
if edit1.Text = '' then
 begin
  showmessage('Введите численность');
  exit;
 end;
if edit1.Text = '0' then exit;

if i = 1 then setlength(ArrInt,strtoint(edit1.Text));// создаём массив

ArrInt[i-1]:=strtoint(Edit2.Text);

if i = strtoint(edit1.Text) then // здесь то что надо делать дальше
...

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if Not (Key in ['0'..'9', #8, #3, #22, '.']) then Key:=#0;
end;

procedure TForm1.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
if Not (Key in ['0'..'9', #8, #3, #22, '.']) then Key:=#0;
end;
...

написал на скорую, так как основной задачи нет.
В edit1 сколько раз вводить
В edit2 что вводить (всмысле числа)

TForm1.Edit1KeyPress это что б вводились только цифры.

[POPOV]

Спасибо ! Вот тока без массива используя цикл никак ?

[Air]

Во-первых, чем Вам массив не понравился?
Во-вторых, куда записывать числа, не будь мыссива?

[AlDelta]

var i:integer;

procedure TForm1.FormCreate(Sender: TObject);
begin
i:=0;
end;

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if Not (Key in ['0'..'9', #8,#13]) then Key:=#0;

if (Key=#13) and (i<StrToInt(Edit1.Text)) then
i:=StrToInt(Edit1.Text);

Form1.Caption:='Наибольшее число последовательности: '+IntToStr(i);
end;

[POPOV]

Ладно, спасибо вам.