function TfmDW6Main.BeautyStr(s: string; iLength: integer): string;

var

  bm: TBitmap;

  sResult: string;

  iStrLen: integer;

  bAdd: boolean;

begin

  Result := s;

  if Trim(s) = '' then

    exit;

  bAdd := false;

    sResult := s;

  bm := TBitmap.Create;

  bm.Width := 100;

  bm.Height := 100;

  iStrLen := bm.Canvas.TextWidth(sResult);

  while iStrLen > iLength do

  begin

    if Length(sResult) < 4 then

      break;

    Delete(sResult, Length(sResult) - 2, 3);

    bAdd := true;

    iStrLen := bm.Canvas.TextWidth(sResult);

  end;

  if (iStrLen <= iLength) and bAdd then

    sResult := sResult + '...';

  bm.Free;

  Result := sResult;

end;