Здравствуйте, mpn_arv, Вы писали:

_>

_>uses Types;

_>    ...

_>var
_>    tsize: tagSIZE;

_>    ...

_>  GetTextExtentpoint(Lablel.Canvas.Handle, PChar(Lablel.Caution), length(Lablel.Caution), tsize);
    
_>    tsize.cx
_>    tsize.cy
    
    
_>

1) Зачем использовать tagSize когда есть человеческий TSize???
2) Зачем для локальных переменных использовать имена существующих типов???
3) Что есть Caution??? Типа внимание, ща вылетит птичка ? Ну я конечно догадываюсь что Caption, но повеселил
4) Ну и результат естественно будет не всегда верный