нужно копировать только код....
а не реализации процедуры...
т.е. все что после
procedure TForm.Button1Click

у тебя получилось 2 один. строки...

__________________
*********************************
*Я не волшебник ٩(๏̯͡๏)۶, только учусь...*
*********************************
Программы на заказ
Times to fly...