[Resolvido] Gerar Arquivos TXT

Olá amigos!

Estou gerando pela primeira vez arquivos txt...

Usei um código que rodou, está gerando o arquivo, mas não sei como definir o tamanho fixo para os campos dentro deste código e nem colocar as letras H(para cabeçalho), F(para o corpo) e Z (para fechar o arquivo).

O código que usei foi o seguinte:

procedure TFormArquivoTxt.ButtonGerarArquivoClick(Sender: TObject);
 var Arquivo: TextFile;
 linha, NomeArquivo: String;

begin

 NomeArquivo:= 'C:\DSAC\Pingo\Arquivo.txt';
 AssignFile(Arquivo, NomeArquivo);
 ReWrite(Arquivo);

 while not AdoQueryArquivo.Eof do
 begin
 linha:= AdoQueryArquivo.fieldByName('Fatura').AsString;
 writeln(Arquivo, linha);
	AdoQueryArquivo.Next;
	end;
	CloseFile(Arquivo);

 end;

Preciso disso urgente!

Desde já agradeço!

[]'s

Natiii