[Resolvido] Agapar segunda linha de um arquivo txt

Ola Amigos do forum

Estou tentando desenvolver uma feramenta que faça o seguinte:

tenho um arquivo com varias linhas

codigo

001

002

003

004

quero gerar um novo arquivo txt que tenha o seguinte resultado:

codigo

001

e depois testar novamente e fica assim

codigo

002

ou seja que baseado no primeiro arquivo ele sempre poe o titulo da coluna e apaga a linha ja testada nao deixando espaço em branco entre o codigo e o numero

o codigo que tenho so mostra as linhas do arquivo txt:

procedure TForm1.Button1Click(Sender: TObject);

 var
 Arquivo: TStringList;

begin

 Arquivo := TStringList.Create;
 try
 Arquivo.LoadFromFile('c:\jw\lista.txt');
 ShowMessage('Numero de Linhas: ' + IntToStr(Arquivo.Count - 1));
 finally
 FreeAndNil(Arquivo);
 end;
end;

Alguém poderia me ajudar a implementar o codigo...Obrigado.