Datei öffnen

[Headi]

Hallo leute,

Folgendes, Ich habe ein kleines Programm bei dem man per Klick
mit einem SaveDialog den inhalt von zwei Edit Feldern speichern kann.
Mit einem Klick auf einen OpenDialog kann man diese Datei dann wieder öffnen,
und die Daten werden wieder ins Edit Feld eingetragen.
Das funktioniert auch gut, nur wie mache ich das, wenn der Benutzer die gespeicherte
Datei in mein Programm zieht, über "öffnen mit" öffnet, oder doppelklick?
Bei "öffnen mit" wird mein Programm zwar geöffnet, aber es geschieht nichts.

Hier mein code:
Sry wenn das hier schon öfters gefragt wurde, aber ich konnte bisher noch nichts finden was mir geholfen hat.

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, IniFiles, StdCtrls;

type
  TForm1 = class(TForm)
    OpenDialog1: TOpenDialog;
    SaveDialog1: TSaveDialog;
    Edit1: TEdit;
    Edit2: TEdit;
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button2Click(Sender: TObject);
var
    Ini: TIniFile;
begin
if SaveDialog1.Execute then begin
 Ini:=TIniFile.Create(SaveDialog1.FileName);
 Ini.WriteString('edtxt','name',edit1.Text);
 Ini.WriteString('edtxt','nick',edit2.Text);
 Ini.Free;
 end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var    Ini: TIniFile;
begin
if OpenDialog1.Execute then begin
  Ini:=TIniFile.Create(OpenDialog1.FileName);
  Edit1.Text:=Ini.ReadString('edtxt','name','');
  Edit2.Text:=Ini.ReadString('edtxt','nick','');
  Ini.Free;
  end;
end;

end.

Ich hoffe ihr könnt mir helfen

mfg headi