自己做的一个长篇文字转GIF图片的dll组件，请高手帮忙解决一下图片高度有关问题

自己做的一个长篇文字转GIF图片的dll组件，请高手帮忙解决一下图片高度问题
由于文字大小、字体、换行，会导致图片高度动态变化。
现在的代码里高度一直不能准确。
代码如下。
使用了AAFONT   GIFimage   控件

unit   main;

{$WARN   SYMBOL_PLATFORM   OFF}

interface

uses
    ComObj,   ActiveX,   AspTlb,   dximg_TLB,   Windows,StdVcl,SysUtils,   Variants,Classes,
    ExtCtrls,   Graphics,AAFont,   AACtrls,GIFImage;

type
    Tdxasoimg   =   class(TASPObject,   Idxasoimg)
    protected
        procedure   OnEndPage;   safecall;
        procedure   OnStartPage(const   AScriptingContext:   IUnknown);   safecall;
        function   togif(const   txt,   fname,   fsize,   fcolor,   bgcolor:   WideString;
            imgwidth:   Integer):   OleVariant;   safecall;

    end;

implementation

uses   ComServ;


procedure   Tdxasoimg.OnEndPage;
begin
    inherited   OnEndPage;
end;

procedure   Tdxasoimg.OnStartPage(const   AScriptingContext:   IUnknown);
begin
    inherited   OnStartPage(AScriptingContext);
end;

//自动换行
function   GetWrapText(const   Line,   BreakStr:   string;   BreakChars:
    TSysCharSet;   MaxCol:   Integer):   string;
const
    QuoteChars   =   [ ' ' ' ',   ' " '];
var
    Col,   Pos:   Integer;
    LinePos,   LineLen:   Integer;
    BreakLen,   BreakPos:   Integer;
    QuoteChar,   CurChar:   Char;
    ExistingBreak:   Boolean;
    DoubleCharBreak:   Boolean;
begin
    if   MaxCol   <   2   then   MaxCol   :=   2;
    Col   :=   1;
    Pos   :=   1;
    LinePos   :=   1;
    BreakPos   :=   0;
    QuoteChar   :=   '   ';
    ExistingBreak   :=   False;
    DoubleCharBreak   :=   False;
    LineLen   :=   Length(Line);
    BreakLen   :=   Length(BreakStr);
    Result   :=   ' ';
    while   Pos   <=   LineLen   do
    begin
        CurChar   :=   Line[Pos];
        if   CurChar   in   LeadBytes   then
        begin
            if   Col   > =   MaxCol   -   1   then
            begin
                DoubleCharBreak   :=   True;
                BreakPos   :=   Pos   -   1;
            end;
            Inc(Pos);
            Inc(Col);
        end
        else   if   CurChar   =   BreakStr[1]   then
        begin

            if   QuoteChar   =   '   '   then
            begin
                ExistingBreak   :=   CompareText(BreakStr,   Copy(Line,   Pos,   BreakLen))   =   0;
                if   ExistingBreak   then
                begin
                    Inc(Pos,   BreakLen   -   1);
                    BreakPos   :=   Pos;
                end;
            end
        end
        else   if   CurChar   in   BreakChars   then
        begin
            if   QuoteChar   =   '   '   then
                BreakPos   :=   Pos
        end
        else   if   CurChar   in   QuoteChars   then
            if   CurChar   =   QuoteChar   then
                QuoteChar   :=   '   '
            else   if   QuoteChar   =   '   '   then
                QuoteChar   :=   CurChar;
        Inc(Pos);
        Inc(Col);
        if   (not   (QuoteChar   in   QuoteChars)   and   (ExistingBreak   or
            ((Col   >   MaxCol)   and   (BreakPos   >   LinePos))))   or   DoubleCharBreak   then
        begin
            Col   :=   Pos   -   BreakPos;
            Result   :=   Result   +   Copy(Line,   LinePos,   BreakPos   -   LinePos   +   1);
            if   not   (CurChar   in   QuoteChars)   then
                while   (Pos   <=   LineLen)   and   (Line[Pos]   in   BreakChars   +   [#13,   #10])   do
                    Inc(Pos);
            if   not   ExistingBreak   and   (Pos   <   LineLen)   then
                Result   :=   Result   +   BreakStr;
            Inc(BreakPos);
            LinePos   :=   BreakPos;
            ExistingBreak   :=   False;
            DoubleCharBreak   :=   False;
        end;
    end;
    Result   :=   Result   +   Copy(Line,   LinePos,   MaxInt);
end;


------解决方案--------------------

用GetTextExtentPoint32计算。