[[egostar]]

Complementando lo expuesto por Roman prueba este código para centrar un texto, solo que para hacer esto no debes de imprimir con el writeln, debes usar el objeto Printer.

Código Delphi [-]
 
 
// debes de incluir en el uses del form la unidad Printers.

procedure TForm1.BitBtn1Click(Sender: TObject);
var
  TextWidth, Centro : Integer;
begin
   with Printer do begin
      BeginDoc;
      TextWidth := Canvas.TextWidth('CADENA DE CARACTERES CENTRADA EN LA HOJA') div 2;
      Centro    := PageWidth div 2;
      Canvas.TextOut( ( Centro - TextWidth),400,'CADENA DE CARACTERES CENTRADA EN LA HOJA');
      EndDoc;
   end;
end;

Espero te ayude.