TLabel mit hartem Umbruch

[hathor]

Delphi-Quellcode:

procedure TForm1.Label5MouseEnter(Sender: TObject);
begin
 cap:= Caption;    // cap : String; //global
 caption:= Label5.Caption;
end;

procedure TForm1.Label5MouseLeave(Sender: TObject);
begin
 Caption:= cap;
end;