Hallo,
folgender Vorschlag:
Delphi-Quellcode:
procedure TForm1.Label1Click(Sender: TObject);
var tmp0:String;
tmpint:integer;
begin
//String zuweisen
tmp0:='Das ist mein Label';
{Stringlänge von tmp0 ermitteln und durch zwei rechnen
anschließend runden und Ergebnis an tmpint als Integer übergeben.}
tmpint:=round(strlen(PChar(tmp0))/2);
//chr(13) an errechneter Position einfügen
insert(chr(13),tmp0,tmpint);
//String mit Zeilenumbruch sichtbar machen
label1.Caption:=tmp0;
end;
Hoffe daß ich helfen konnte.
Gruß Ronny.