가변폭 문자에서는 같은 수의 글자라도 폭이 달라지죠..
그런걸 해결하려면 TCanvas의 맴버함수인 TextWidth()함수를 쓰시면 됩니다.
그러면 현재 선택된 폰트에 따라 실제 폭을 얻을 수 있고, 그 값을 이용해서
TForm의 Width 프라퍼티를 변경하시면 됩니다.
만일 여러라인에 해당하는 폭을 얻고자 하신다면, Win32 API을 쓰셔야 합니다.

이상헌 님이 쓰신 글 :
:  이건 알고리즘이 아닌 방법일거 같은데
: 아무리 찾아도 방법을 알수가 없네여...
: 알고계신 분 가르쳐 주세여.
: 그럼 즐프하세여^^