Duvida iniciante salvar texto .txt [ajuda]

[Roarealva]

Eheheh é uma coisinha simples mais to quebrando a cabeça no DELPHI !!!

declarei a

var F:textfile;

Adicionei um botão e um memo1

no botão coloquei o codigo:

procedure TForm1.Button1Click(Sender: TObject);

var

F:textfile;

begin

Assignfile(F,'c:\text.txt');

if not FileExists('c:\text.txt') Then

begin

Rewrite(F);

Closefile(F);

End

Else

Assignfile(F,'c:\text.txt');

{$I-}

Append(F);

{$I+}

If IOResult<> 0 Then

Begin

End;

Write(F,Form1.Memo1.text);

Closefile(F);

end;

Ai o programa faz o seguinte ele cria o c:\text.txt e quando eu aperto o botão ele salva o tudo que eu escrevi no memo1

massss

tipo se eu escrever

TESTANDO O PROGRAMA e apertar o botão e depois escrever TEST DE NOVO e apertar de novo

no documento vai ficar assim:

TESTANDO O PROGRAMA

TESTANDO O PROGRAMA

TEST DE NOVO

sendo que era para ficar assim

TESTANDO O PROGRAMA

TEST DE NOVO

tipo quando eu salvo ele salva des do começo ,ele não salva só o que foi adicionado ao texto, ele vai ficar duplicando o texto.....

AJUDA AEWWWWWW!!!!!!!!

[Roarealva]

EHheeh quase resolvi...

eu coloquei um componente SaveDialog que fica na paleta Dialog

e coloquei mais um botão com o comando

begin

if Savedialog1.Execute then

begin

memo1.Lines.SavetoFile(Savedialog1.FileName);

memo1.SetFocus;

end;

end;

aí quando eu cliko ele abre a janela para salvar , eu coloco o local , o nome do .txt e aperto salvar

EHEHEh salvo normal

ele salva certinho sem 'duplicar' o texto

mais eu quero que eu não tenha que clicar em nada

[Roarealva]

kkkkkkkkk

to até com vergonhaa:unsure:

era só por em um botão....

memo1.Lines.SavetoFile('c:\text.txt');

[Resolvido]