IMPRIMIR????????

OI PESSOAL DO CLUBEDELPHI.
ESTOU COM PROBLEMAS EM IMPRIMIR UM DOCUMENTO NO DBMEMO, ESTOU USANDO O SEGUINTE CÓDIGO


procedure TForm_dicas.Button1Click(Sender: TObject);
Var I, Altura : Integer;
sMemo : String;
begin
With Printer Do
Begin
Title:= ´Imprimindo dicas´;
BeginDoc;
With Canvas Do
Begin
Altura := TextHeight(´A´);
For I := 1 To dbMemo1.Lines.Count Do
Begin
sMemo := dbMemo1.Lines[I];
TextOut(0, (i - 1) * Altura, sMemo);
End;
End;
EndDoc;
End;


end;



É O SEGUINTE.
A IMPRESSORA NÃO IMPRIME A PRIMEIRA LINHA DO DBMEMO.
O QUE ESTÁ ERRADO?

obs.: tem que ser no dbmemo, e não no memo.