[SilverSnow]

Код:

const FileName='config.txt';
var GameFile:string;

implementation

{$R *.dfm}

procedure TForm1.ButtonClick(Sender: TObject);
var OpenDialog:TOpenDialog;
    ExeFile:TextFile;
begin
  assignFile (ExeFile,FileName);
  if FileExists (FileName) then
    begin
      reset (Exefile);
      ReadLn (Exefile,GameFile);
      closeFile (ExeFile);
    end else
      begin
        OpenDialog:=TOpenDialog.Create(Self);
        OpenDialog.Filter:='Only exe|*.exe';
        OpenDialog.Title:='Выберите екзешник с игрой';
        If openDialog.Execute then
          begin
            rewrite (Exefile);
            GameFile:=OpenDialog.FileName;
            WriteLn (Exefile,GameFile);
            closeFile (ExeFile);
          end;
        OpenDialog.free;
      end;
end;

Admin: Пользуемся тегами!

Лови после выполнения кода, имя к екзешнику будет храниться в переменной gamefile. Нужна будет помощь обращайся icq 491385275.