Ajustar un Form al ancho de un texto

[jachguate]

Pues yo hice la prueba original en delphi4, pero ahora la he compilado en delphi7 y funciona perfectamente...

La resolución del monitor no creo que tenga nada que ver... por si las dudas, yo uso 1280x1024.

el código:

Código Delphi [-]
procedure TForm1.Ajustar;
var
  i : integer;
  w : integer;
begin
  w := 0;
  for i:=0 to Lista.Items.Count-1 do
        if( Lista.Canvas.TextWidth(Lista.Items[i])>w ) then
                w := Lista.Canvas.TextWidth(Lista.Items[i]);
  ClientWidth := w + 12;
end;

Hasta luego.