在Delphi语言的ListBox中，如何在列中整齐地将最后一段文本右对齐？

procedure TForm1.ListBox1CustomDrawItem(Sender: TCustomListBox;
  Index: Integer; Rect: TRect; State: TOwnerDrawState);
var
  TextWidth: Integer;
  Text: string;
begin
  with Sender as TListBox do
  begin
    if odSelected in State then
      Canvas.Brush.Color := clHighlight
    else
      Canvas.Brush.Color := clWindow;

    Canvas.FillRect(Rect);

    Text := Items.Strings[Index];

    if Index = Items.Count - 1 then
    begin
      TextWidth := Canvas.TextWidth(Text);
      Canvas.TextRect(Rect, ClientWidth - TextWidth, Rect.Top, Text);
    end
    else
    begin
      Canvas.TextRect(Rect, Rect.Left, Rect.Top, Text);
    end;
  end;
end;