TLabel + taRightJustify = katastrophe?

[DeddyH]

Irgendwas passt da aber nicht. Zumindest bei mir steht das Label zu weit rechts. Kontrolle mit einer Line bei 300.

Delphi-Quellcode:

var l: TLabel;

procedure TForm1.Button1Click(Sender: TObject);
begin
  l.Caption := l.Caption + 'A';
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  l := tLabel.Create(self);
  l.Alignment :=  taRightJustify;
  l.Left := 300;
  l.Parent := Self;
  l.Top := 3;
  l.Caption := 'Hallo Welt';
end;

procedure TForm1.FormPaint(Sender: TObject);
begin
  Canvas.Pen.Color := clRed;
  Canvas.MoveTo(300,0);
  Canvas.LineTo(300,Height);
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  l.Free;
end;