Delphi: Проблема с созданием объектов

[Omedus]

Доброго времени суток. Мне нужно написать программу, которая при нажатии на кнопку создаёт Memo, Label и сдвигает кнопку ниже.
В теории я всё это сделал, Label заполняется цифрой-счётчиком (по количеству созданных Memo), всё подровнял...
А потом я заметил, что после трёх нажатий кнопка "улетает" на исходную позицию, а с четвёртым нажатием Label и Memo тоже начинают создаваться заного, с исходной позиции при этом создаваясь "друг-на-друге".
Подскажите пожалуйста: из-за чего это происходит и как это исправить?

procedure TForm1.Button1Click(Sender: TObject);
begin
Memo1:=TMemo.Create(self);
Memo1.Parent:=self;
Memo1.Text:='';
Memo1.Left:=32;
Memo1.Height:=49;
Memo1.Width:=761;
Memo1.Top:=n;
n:=n+65;
m:=m+1;
Button1.Top:=n;
Form1.Height:=Form1.Height+65;
Label1:=TLabel.Create(self);
Label1.Parent:=self;
Label1.Height:=13;
Label1.Width:=17;
Label1.Top:=Memo1.Top;
Label1.Caption:=IntToStr(m)+'.';
Label1.Left:=8;
end;

[Карась]

Я думаю неправильно написан код. Кстати где он?

[Omedus]

Добавил. Про код забыл сперва...)

[puporev]

Не знаю, у меня нормально работает.
n,m:integer; в глобальных объявил?
P.S. После 12 нажатий начинается увеличение просветов между Memo. Почему, не знаю, думать лень.

[Omedus]

Спасибо, нашёл ошибку. m,n - было объявлено byte >_<