Как вывести на печать данные из фаила DBASE используя программную оболочку Delphi

Вот код программы:
Procedure ImprimirTabla(Data: TDataSet; maxSize: Integer= 30);

Var
I: Integer;
SizeStr: String;
OldFont: TFontRecall;

begin
OldFont:= TFontRecall.Create (Printer.Canvas.Font);

Try
Printer.Canvas.Font.Style:= [fsBold];

Try

Data.Open;

Try
While Not Data.Eof do
begin
For I:= 0 to ContCampos do
begin
SizeStr:= IntToStr(Min(Data.Fields.DisplayWidth, maxSize));
Write(PrintFile, Format('%-'+ SizeStr + 's',[Data.Fields.AsString]));
end;
Writeln(PrintFile);

Data.Next;
end;
Finally

Data.Close;
end;

Finally
OldFont.Free;
end;

Finally
System.CloseFile (PrintFile);

end;
end;

Проблема: Сдвиг колонок при распечатке из базы данных DBASE