Не помещается текст в ListBox

type
  TForm1 = class(TForm)
    ListBox1: TListBox;
    Timer1: TTimer;
    procedure ListBox1DrawItem(Control: TWinControl; Index: Integer;
      Rect: TRect; State: TOwnerDrawState);
    procedure Timer1Timer(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
    { Private declarations }
    rectt: TRect;
    tp: integer;
    txtbmap: TBitmap;
    lbcanvas: TCanvas;
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  txtbmap := TBitmap.Create;
  Timer1.Interval := 100;
  ListBox1.Style := lbOwnerDrawFixed; // Отрисовка пользователем
end;
 
procedure TForm1.FormDestroy(Sender: TObject);
begin
  txtbmap.Free;
end;
 
procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
begin
  rectt := Rect;
  tp := 0;
  with (Control as TListBox) do begin
    if odSelected in State then // Поменял цвет выделенного - синий слишком тёмный
      Canvas.Brush.Color := clYellow;
    Canvas.FillRect(Rect); // Очистка строки
    Canvas.TextOut(Rect.Left, Rect.Top, Items.Strings[Index]); // Вывод текста
 
    // Подготовка промежуточного Bitmap.
    txtbmap.Width  := Canvas.TextWidth(Items.Strings[Index]) + 50;
    txtbmap.Height := Rect.Bottom - Rect.Top;
    txtbmap.Canvas.Brush.Color := Canvas.Brush.Color;
    txtbmap.Canvas.Pen.Color := Canvas.Pen.Color;
    txtbmap.Canvas.FillRect(Classes.Rect(0, 0, txtbmap.Width, txtbmap.Height));
    // На нём нарисовать всю строку для последующей прокрутки
    txtbmap.Canvas.TextOut(0, 0, Items.Strings[Index]);
    lbcanvas := Canvas; // Сохранить Canvas от ListBox, чтобы потом на нём рисовать
    // При создании потомка от TListBox этого не понадобится
  end;
end;
 
procedure TForm1.Timer1Timer(Sender: TObject);
begin
  // Прокрутка текста по таймеру
  if Assigned(lbcanvas) then begin
    BitBlt(lbcanvas.Handle, rectt.Left - tp, rectt.Top, txtbmap.Width, rectt.Bottom, txtbmap.Canvas.Handle, 0, 0, srccopy);
    Inc(tp);
  end;
end;