Formen öffnen und schließen

[Fussel9]

Delphi-Quellcode:

procedure TForm1.Button7Click(Sender: TObject);
var FDialog :TFDialog;
begin
name:=EName.Text;
Mediaplayer1.Stop;
Mediaplayer2.Play;
Form1.Caption:=EName.Text;
Button7.visible:=False;
EName.visible:=False;
Label1.visible:=False;
Panel5.visible:=False;
save := TIniFile.Create('.\save\SaveFile.ini');
//try
if save.SectionExists(name)=True then
  begin
    if MessageDlg('Kaktus existiert bereits, Laden oder anderen Namen eingeben! Laden?',mtConfirmation,mbYesNo,0)=mrYes then
      begin;
        sek:=save.ReadInteger(name,'ZeitSek',0);
        min:=save.ReadInteger(name,'ZeitMin',0);
        h:=save.ReadInteger(name,'ZeitH',0);
        hunger:=save.ReadInteger(name,'Hunger',30);
        durst:=save.ReadInteger(name,'Durst',30);
        laune:=save.ReadInteger(name,'Laune',50);
        alter:=save.ReadInteger(name,'Alter',0);
        gesundheit:=save.ReadInteger(name,'Gesundheit',100);
      end
    else
      begin
        FDialog:=TFDialog.Create(self);
        FDialog.ShowModal;
        name:=FDialog.ENeuName.Text;
      end;
  end;
//finally
save.Free;
LSekunden.caption:=IntToStr(sek);
LMinuten.caption:=IntToStr(min);
LStunden.caption:=IntToStr(h);
LAHunger.caption:=IntToStr(hunger);
LADurst.caption:=IntToStr(durst);
LALaune.caption:=IntToStr(laune);
LAAlter.caption:=IntToStr(alter);
LAGesundheit.caption:=IntToStr(gesundheit);
frame:=0;
EssenF:=0;
TrinkenF:=0;
SpielenF:=0;
PName.caption:=EName.Text;
end;

das is die Procedur an ders liegen muss, weil ich noch in ner anderen eine andere Form aufrufe und das klappt, auch modal...