Escrever no fim do arquivo de texto

Boa Noite,

Preciso escrever no fim de um arquivo de texto o conteúdo de dois edits. Não to conseguindo:

procedure TForm9.BitBtn1Click(Sender: TObject);vartxt:textfile;caminho,linha: String;begincaminho:=edit3.text;if edit3.text='' then showmessage('Selecione um arquivo de configuração!') else begin assignfile(txt,caminho); reset(txt); if eof(txt) then begin readln(txt,linha); writeln(txt, edit1.Text); writeln(txt, edit2.text); writeln(txt); end; end; closefile(txt);end; :blink: http://forum.imasters.com.br/public/style_emoticons/default/blush.gif
Abraço http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif