OnClick вопрос по этому действию

procedure TForm1.Button1Click(Sender: TObject);
const
  e=1;
Var Baze:string;
    n:byte;
procedure Fact;
begin
 n:=n+1;
end;
begin
 Fact;
Baze:=Edit1.Text+Edit1.Text+Edit1.Text;
Label4.Caption:=' n '+IntToStr(n);
Edit1.Text:='';
Edit2.Text:='';
Edit3.Text:='';
end;
end.

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
If key=#13 then Label1.Caption:=Edit1.Text;
end;

procedure TForm1.Edit1Change(Sender: TObject);
//процедура OnChange выполняется всегда когда ты изменяешь текст
begin
Label1.caption:=Edit1.text;//ты написал 1 букву она тутже переносится в Label
Edit1.text:='';//и Edit очищается
//поэтому при таком коде в лабел будет всегда 1 символ
end;

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
//эта процедура выполняется всегда когда ты нажимаешь на какую-то кнопку на клавиатуре
begin
//#13 - это код кнопки Enter
//вот мы и проверяем равна ли кнопка которую мы нажали(то есть Key) номеру #13
If key=#13 then Label1.Caption:=Edit1.Text;
//если да то выполняем нужный нам код
end;

Image1.Picture.LoadFromFile('Путь к картинке');

procedure TForm1.Image1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
If Button=mrRight then
...
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
Image1.Picture.LoadFromFile('Путь к картинке');
end;