1- Yaz, sil ve kapat butonlarının üzerine gelindiğinde alta ne işe yaradığı yazacak ve resimdeki işlemleri yapacak program.

procedure TForm1.Button1Click(Sender: TObject);

begin

edit1.Text:='Samet';

edit2.text:='İnci';

end;

procedure TForm1.Button3Click(Sender: TObject);

begin

halt;

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

edit1.Text:='';

edit2.Text:='';

end;

procedure TForm1.Button1MouseMove(Sender: TObject; Shift: TShiftState; X,  Y: Integer);

begin

label3.Caption:='Yazdırmak için tıklayınız.';

end;

procedure TForm1.Button2MouseMove(Sender: TObject; Shift: TShiftState; X,  Y: Integer);

begin

label3.Caption:='Silmek için tıklayınız.';

end;

procedure TForm1.Button3MouseMove(Sender: TObject; Shift: TShiftState; X,  Y: Integer);

begin

label3.Caption:='Kapatmak için tıklayınız.';

end;

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,  Y: Integer);

begin

label3.Caption:='';

end;