procedure TForm1.FormCreate(Sender: TObject);
begin
button1.Caption:='örnek'; //program çalisdiginda buttonu örnek olarak göster
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
button1.Caption:='&örnek'; //kisa yol tusuda kullan (ALT + ö)
button1.cancel:=true; // Esc tusu button1 de çalissin
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
showmessage('örnek'); //örnek diye hata versin
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
button1.WordWrap:=true; //birden fazla satirli yaziya izin ver
end;