function AlinharStrings(const strEsquerda, strDireita: string; tamanhoTotal: Integer): string;
var
lenEsquerda, lenDireita, espacosEsquerda: Integer;
begin
// Obter o comprimento das strings de entrada
lenEsquerda := Length(strEsquerda);
lenDireita := Length(strDireita);
// Calcular o número de espaços à esquerda para alinhar a string à direita
espacosEsquerda := tamanhoTotal - lenEsquerda;
// Garantir que não haja espaços negativos
if espacosEsquerda < 0 then
espacosEsquerda := 0;
// Construir a string resultante com alinhamento
Result := Format('%-*s%s', [lenEsquerda + espacosEsquerda, strEsquerda, strDireita]);
end;
Exemplo de uso
var
resultado: string;
begin
resultado := AlinharStrings('Esquerda', 'Direita', 20);
// O resultado será 'Esquerda Direita'
end;
retornando a string pronta você pode enviar normalmente para impressora usando o posprinter.