Account Speicher Frage

[Donlezz]

Hallo Alle zusammen

Ich wollte mal einen Account Speicher Programmieren weil ich öfters mal meine Passwörter vergesse ...

So siehts aus:

Code:

procedure TForm1.Button1Click(Sender: TObject);
begin
memo1.Clear;
memo1.Lines.Add('Product  : '+ edit1.Text);
memo1.Lines.Add('Username : '+ edNickname.Text);
memo1.Lines.Add('Password : '+ edpassword.text);
memo1.Lines.Add('------------------------------');
memo1.Lines.SaveToFile('C:\accounts.txt');
memo1.Lines.LoadFromFile('C:\accounts.txt');
if memo1.Text = '' then showmessage("Leer")
end if
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
memo1.Lines.LoadFromFile('C:\accounts.txt');
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
 memo1.Lines.LoadFromFile('C:\accounts.txt');
end;

end.

Nur jetzt wen ich ein Account save und dannach noch einen überschreibt der einfach das erste =(
Hat jemand eine lösung ?

//Bin ein Frischer Delphi anfänger