Lauftext - Label immer auf Mindestgröße

[Namenloser]

Delphi-Quellcode:

var
  text: string;
begin
  text := label1.text+label1.caption[1];
  delete(text,1,1);
  label1.caption := text;
end;

Ungetestet!

€dit: Wie gesagt, ungetestet Hab die unnötige Variable rausgeschmissen und Caption/Text geändert.