Первый запуск программы.

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, IniFiles;
 
type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;
 
var
  Form1: TForm1;
  Ini: TIniFile;
implementation
 
{$R *.dfm}
 
procedure TForm1.FormCreate(Sender: TObject);
var x: Boolean;
    OD: TOpenDialog;
begin
  Ini := TIniFile.Create(ExtractFilePath(ParamStr(0))+'config.ini');
  OD := TOpenDialog.Create(Self);
  OD.Filter := 'XML|*.xml';
  x := Ini.ReadBool('run', 'start', True);
  if x then
    begin
      Ini.WriteBool('run', 'start', False);
        if OD.Execute then
          begin
          // тут делаем что - то, указыаем путь к примеру
          // XML.Path := OD.FileName; // к примеру так
            Ini.WriteString('xml_path', 'path', OD.FileName); // прописывам путь к файлу в патч, к примеру... если требуется :)
          end;
    end;
end;
 
end.