Como alinhar um RichEdit... Socorro me ajudem.

O Codigo esta assim.. ele esta ficando assim

Codigo....Nome..............................................Data
000001...Deibe Junior Viana...01/01/2002----> esta desalinhado a coluna..
como faço para ficar um debaixo do outro..
O Codigo que estou usando é esse...

var
Data : String ;
QuebraPagina,x,Codigo,Pagina : Integer ;
begin
QuebraPagina:=0;
Codigo:=0 ;
Data:=DateToStr(Date) ;
Pagina:=1 ;
Linhas.Lines.Add(´============================================================================´);
Linhas.Lines.Add(´Farmácia MedFarma - Relatóirio de Clientes Pagina :´+InttoStr(Pagina)) ;
Linhas.Lines.Add(´CODIGO NOME CLIENTE Data:´+Data) ;
Linhas.Lines.Add(´============================================================================´);
for x:=0 to Q.RecordCount -1 do
begin
QuebraPagina:=QuebraPagina+1 ;
if QuebraPagina=21 then
begin
Pagina:=Pagina+1 ;
Linhas.Lines.Add(´============================================================================´);
Linhas.Lines.Add(´´);
Linhas.Lines.Add(´============================================================================´);
Linhas.Lines.Add(´Farmácia MedFarma - Relatóirio de Clientes Pagina :´+InttoStr(Pagina)) ;
Linhas.Lines.Add(´CODIGO NOME CLIENTE Data:´+Data) ;
Linhas.Lines.Add(´============================================================================´);
Quebrapagina:=0 ;
end;
Codigo:=Codigo+1 ;
Linhas.Lines.Add(FormatFloat(´000000´,Q.FieldByName(´Codigo´).AsInteger)+´ ´+Q.FieldByName(´Nome´).AsString +´ ´+Q.FieldByName(´Data´).AsString);
Q.Next;
end ;
Linhas.Lines.Add(´´) ;
Linhas.Lines.Add(´´) ;
Linhas.Lines.Add(´Total Pagina(s) :´+IntToStr(Pagina)) ;
Linhas.Lines.Add(´Total Linha(s) :´+IntToStr(linhas.Lines.Count)) ;