Array speichern

[Creepin]

Hallo, ich hoffe ich habe die richtige Rubrik getroffen. ich möchte ein Array in einer Datei speichern, das klappt auch ganz gut mit folgendem code:

Delphi-Quellcode:

procedure TForm2.Button2Click(Sender: TObject);
 var  i: integer;
key: array[1..26] of integer;
  f: TFileStream;
begin
 f := TFileStream.Create('C:\rotor.dat',fmCreate);
  try
   for i := 0 to 26 do
     f.write(key[i],sizeOf(integer));
 finally
   f.free;

  end;
end;

bloß wie kann ich den dateinamen und speicherort bestimmen lassen vom benutzer?
Danke im voraus für eure antworten.

[edit=SirThornberry]Delphi-Tags gesetzt - Mfg, SirThornberry[/edit]