Gerar arquivo de texto!!!!!!

preciso gerar um arquivo de texto com aseguinte estrutura:


CCCCCC CODIGO DO ITEM (6 BYTES)
PPPPPP PREÇO (6 BYTES)


montei a seguinte rotina :
--------------------------------------------------------------------------------
var arq: TextFile;
linha: String;
begin

qry_log.Close;
qry_log.SQL.Clear;
qry_log.SQL.Add(´select * from cad_log_prod ´);
qry_log.SQL.Add(´where unid_cod=´´+unidcod+´´ and prod_balanca=´S´ order by prod_cod´);
qry_log.Open;


AssignFile ( arq, ´c:\Dmb\PRECOMGV.TXT´ );
Rewrite ( arq );
qry_log.First;
while not qry_log.Eof do
begin
WriteLn ( arq, qry_log.FieldByName(´prod_cod´).asstring );
WriteLn ( arq, FormatFloat ( ´0000.00´, qry_log.FieldByName ( ´prod_precvenda´ ).AsFloat ) );
WriteLn ( arq );
qry_log.Next;
end;
CloseFile ( arq );

o resultado do arquivo gerardo é o seguinte:
===============================
5
000002

6
000013

8
000001

9
000001

10
000002

========================




OS NUMERO TEM QUE SER PREENCHIDOS COM ZEROS A ESQUERDA E O PREÇO SEM PONTUAÇÃO..... HA : NÃO PODE EXISTIR ESTE ESPAÇO DE LINHAS.


COMO FAÇO?

Desde já agradeço...