Dialog in einer Unit erzeugen

[TheProfi]

Moin zusammen,

hab momentan einen Knoten im Kopf. Ich möchte gerne in einer Unit eine function aus dem Hauptfomular aufrufen, die einen Dialog öffnet und in ein Memo eine Datei lädt. Allerdings fkt. das so nicht. Kann mir einer sagen wo meine Fehler steckt, bzw. wie man es richtig macht?

function ADVMemo_laden(ADVM : TDBADVMemo) : TDBADVMemo;
var Mein_opendialog : TOpenDialog;
begin
  Mein_opendialog.Create;
  if Mein_opendialog.Execute then begin
    ADVM.Lines.LoadFromFile(Mein_opendialog.FileName);
    ADVM.CurX := 0;
    ADVM.CurY := 0;
    ADVM.SetFocus;
  end;
  Mein_opendialog.Free;
  ADVMemo_laden := ADVM;
end;

THX Georg

[Bernhard Geyer]

Mein_opendialog := TOpenDialog.Create;

[TheProfi]

Hmm...

Ja, ist richtig. Der Compiler gibt mir allerding eine Fehlermeldung, dass "nicht genügend wirkliche Parameter" angegeben sind.

Diese Function steht in einer UNIT die vom der MainForm eingebunden ist.

Idee?

Gruß Georg

[Tauschi]

Mein_opendialog := TOpenDialog.Create(Application);

[TheProfi]

Vielen Dank. Funktioniert.

Ich sollte heute besser nicht programmieren.

Gruß Georg