Impressão de itens em matricial na mesma linha...

Estou imprimindo na matricial um pedido, q no final dele saí os títulos do pedido, q sempre sai um abaixo do outro ex:

26/07/04 100,00
27/07/04 100,00
27/08/04 100,00

e isso acaba aumentando o tamanho da impressão, e eu queria ver se daria para imprimir um do lado do outro até o final da linha e se não couber imprimir na de baixo e assim por diante, mais acho difícil passar e uma linha, agora estou fazendo da seguinte forma:

TbTitulos.First;
While not TbTitulos.Eof do
Begin
Vencimento:=DateToStr( TbTitulosVencimento.Value);
Valor:=FloatToStrF( TbTitulosValor.Value,FFNumber,15,2);

For I:=Length(Vencimento) to 58 do
Vencimento:=´ ´+Vencimento;
For I:=Length(Valor) to 23 do
Valor:=´ ´+Valor;

Writeln(Arq,Vencimento,Valor); //acho q teria q mudar aqui não sei!!!
TbTitulos.Next;
End;

Então! alguém tem alguma idéia?