speicherpfad als variable

[mr-unbekannt]

und wie macht man das?

ich schaffe jetzt, dass die datei 1mal unter dem neuen pfad gespeichert wird. ich möchte, dass
die datei aber danach immer unter dem neuen pfad gespeichert wird, ausser der pfad wird geändert.

mein qt jetzt:
Form1:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var a,b,c,d,e,x: String;

begin
 a:=Combobox1.Text;
 b:=Combobox2.Text;
 c:=Edit1.Text;
 d:=Edit2.Text;
 e:=Combobox3.Text;

if length(Combobox1.Text)+length(Combobox2.Text) + length(Edit1.Text)
+ length(Edit2.Text) + length(Combobox3.Text) < 39
then  ShowMessage('Could not login!')
else
begin
x:=Form3.Edit1.Text;
ListBox1.Items.Add(Combobox1.text);
ListBox1.Items.Add(Combobox2.text);
ListBox1.Items.Add(Edit1.text);
ListBox1.Items.Add(Edit2.text);
ListBox1.Items.Add(Combobox3.text);
ListBox1.Items.SaveToFile(x);
ShowMessage('User successfully logged in!');
Close;
end;
end;


procedure TForm1.FormCreate(Sender: TObject);
var x: String;
begin
if fileexists(x) then ListBox1.Items.LoadFromFile(x);

end;

Form3:

Delphi-Quellcode:

procedure TForm3.Button1Click(Sender: TObject);
var x: String;
begin
x:= Edit1.Text;
 Close;
end;



procedure TForm3.FormCreate(Sender: TObject);
begin
x:=Form3.Edit1.Text;
end;