In Delphi, we can create Global Variables that can be used throughout our code.
The Global Variable makes it easy to reference the Variable at any time in our code without having to rewrite it.
Here, we will create a Variable.
(Notice the Var is located in the head of our code, right below the [implementation].)
Not everything can be made into a Global Variable. You will have to try and see what will work.
CFFCS | CarrzSynEdit: | Delphi/Pascal
implementation
var
 thePath : string = 'List.txt'; // The name of the file to save and open

Now, we will use them.
CFFCS | CarrzSynEdit: | Delphi/Pascal
 procedure TForm1.Button1Click(Sender: TObject);
begin
strDirectory.Text :=  ExtractFileDir(Application.ExeName) + '\' +  thePath;
end;

You can always change the 'List.txt' to a [TEdit] on your form with the [Filename], or leave it hardcoded.