TextSize function does not account for line breaks about bgrabitmap HOT 6 CLOSED

function BgraTextMultilineSize(const ABgraBitmap: TBgraBitmap;
  const AStrings: TStrings; const AParagraphSpacing: Single = 0.0): TSize;
var TextLineSize: TSize;
    i: Integer;
begin
  Result := Size(0, 0);
  if AStrings.Count > 0 then
  begin
    for i := 0 to AStrings.Count-1 do
    begin
      TextLineSize := ABgraBitmap.TextSize(AStrings[i]);
      Result := Size( Max(Result.Width,TextLineSize.Width),
                      Result.Height + TextLineSize.Height );
    end;
    Inc(Result.cy, Round(AParagraphSpacing*i));
  end;
end;

function BgraTextMultilineSize(const ABgraBitmap: TBgraBitmap;
  const AStr: String; const AParagraphSpacing: Single = 0.0): TSize;
var TmpStrings: TStringList;
begin
  if AStr.IsEmpty then Exit( Size(0,0) );
  TmpStrings := TStringList.Create();
  TmpStrings.Text := AStr;
  Result := BgraTextMultilineSize(ABgraBitmap, TmpStrings, AParagraphSpacing);
  TmpStrings.Free();
end;