Определение ширины видимого текста

  I := PaintBox.Canvas.TextWidth('Мой текст');

begin
if textbox.Canvas.TextWidth('12323642343253253453453357839637489563478943896537465932535')>textbox.Width then begin
dec(posx,6);
PaintBox1.Canvas.TextOut(posx,trunc(textbox.Height/2),'12323642343253253453453357839637489563478943896537465932535');
end;
end;

begin
if textbox.Canvas.TextWidth('12323642343253253453453357839637489563478943896537465932535')>textbox.Width then begin
dec(posx,6);
PaintBox1.Canvas.TextOut(posx,trunc(textbox.Height/2),'12323642343253253453453357839637489563478943896537465932535');
end;
end;

begin
if PaintBox1.Canvas.TextWidth('12323642343253253453453357839637489563478943896537465932535')>PaintBox1.Width then begin
dec(posx,6);
PaintBox1.Canvas.TextOut(posx,trunc(PaintBox1.Height/2),'12323642343253253453453357839637489563478943896537465932535');
end;
end;

var
  Form1: TForm1;
  TextWidth,
  PosX, LeftX, BtwnX: Integer;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  Timer1.Enabled := not Timer1.Enabled;
  if not Timer1.Enabled then Exit;
 
  PaintBox1.Canvas.FillRect(PaintBox1.Canvas.ClipRect);
  TextWidth := PaintBox1.Canvas.TextWidth(Edit1.Text);
  if PaintBox1.Width < TextWidth then
    BtwnX := 10
  else
    BtwnX := PaintBox1.Width - TextWidth;
  LeftX := PaintBox1.Width - TextWidth - BtwnX;
  PosX := LeftX;
end;
 
procedure TForm1.Timer1Timer(Sender: TObject);
begin
  PaintBox1.Canvas.TextOut(PosX, PaintBox1.Height div 2, Edit1.Text);
  PaintBox1.Canvas.TextOut(PosX - TextWidth - BtwnX, PaintBox1.Height div 2, Edit1.Text);
  inc(PosX, 1);
  if PosX > PaintBox1.Width then
    PosX := LeftX;
end;