Talvez seja melhor definirmos um novo nome para o método... Hoje na ACBrUtil já existe:
procedure QuebrarLinha(const Alinha: string; const ALista: TStringList; const QuoteChar: char = '"'; Delimiter: char = ';');
{-----------------------------------------------------------------------------
Quebra amigável de Linhas de um <Texto>, em um determinado numero de <Colunas>,
respeitando o espaço existente entre as palavras. Permite especificar um
separador diferente de espaço em <CaracterQuebrar>
---------------------------------------------------------------------------- }
function QuebraLinhas(const Texto: String; const Colunas: Integer; const CaracterQuebrar : AnsiChar = ' '): String;
{-----------------------------------------------------------------------------
Quebra Linhas grandes no máximo de Colunas especificado, ou caso encontre
uma quebra de Linha (CR ou CR+LF)
Retorna uma String usando o #10 como separador de Linha
Se <NumMaxLinhas> for especificado, para ao chegar no Limite de Linhas
Se <PadLinhas> for True, Todas as linhas terão o mesmo tamanho de Colunas
com espaços a esquerda se necessário.
---------------------------------------------------------------------------- }
function AjustaLinhas(Texto: AnsiString; Colunas: Integer ; NumMaxLinhas: Integer = 0; PadLinhas: Boolean = False): AnsiString;