[NumLock]

добавь отступ +4:

Код:

var
  i: Integer;
  s: String;
  w: Integer;
begin
  for i:=1 to 100 do
  begin
    s:=IntToStr(Random(MaxInt));
    s:=s+IntToStr(Random(MaxInt));
    s:='['+s+']';
    ListBox1.Items.Add(s);
    w:=ListBox1.Canvas.TextWidth(s)+4;
    if w>ListBox1.ClientWidth then ListBox1.ClientWidth:=w;
  end;
end;