Abfrage von Eingabefeldern... Problem

[Kara]

Mist!
Jetzt hab ich grad festgestellt, dass ich ein anderes Problem habe:
Jasocul hat mir geraten das Close wegzumachen. Aber das ist ja schlecht, denn das Dialogfenster soll sich ja schließen, wenn in alle Felder etwas eingetragen ist. Es soll nur dann offen bleiben, wenn in irgendeinem der Felder nichts drin steht.

Hab ich das Close im Code, schließt das Fenster immer, hab ich es nicht dring, schließt es gar nicht (bei Klick auf OK).

Nochmal den Code:

Delphi-Quellcode:

procedure TFormIdentPunktEingabe.BitBtnOKClick(Sender: TObject);
begin
  TimerSec.Enabled:=false;
  Label2.Visible:=false;
  LabelSekunden.Visible:=false;
  Label4.Visible:=false;
  try
     if (EditIdentPunkt.Text = '') then
        begin
             MessageDlg('Bitte Ident Punkt eingeben!', mtWarning, [mbOk], 0);
             EditIdentPunkt.SetFocus;
        end
        else if (EditEIP.Text = '') then
             begin
                  MessageDlg('Bitte eigene IP-Adresse eingeben!', mtWarning, [mbOk], 0);
                  EditEIP.SetFocus;
             end
             else if (EditFIP.Text = '') then
                  begin
                       MessageDlg('Bitte fremde IP-Adresse eingeben!', mtWarning, [mbOk], 0);
                       EditFIP.SetFocus;
                  end
                  else if (EditSubnet.Text = '') then
                       begin
                            MessageDlg('Bitte Subnetmask-Nummer eingeben!', mtWarning, [mbOk], 0);
                            EditSubnet.SetFocus;
                       end
                       else if (EditGateway.Text = '')then
                            begin
                                 MessageDlg('Bitte Gateway Nummer eingeben!', mtWarning, [mbOk], 0);
                                 EditGateway.SetFocus;
                            end
        else
       IdentPunkt:=EditIdentPunkt.Text;
       IP_CRS:=EditEIP.Text;
       IP_SPS:=EditFIP.Text;
       Subnet_CRS:=EditSubnet.Text;
       Gateway_CRS:=EditGateway.Text;
       NurTNR:=Label11.Caption;
       Close;                   <---------------------------------------<<
  except
    MessageDlg('Bitte Programm neu starten und alle Felder ausfüllen!', mtWarning,[mbOk], 0);
  end
end;

[Kara]

<-- blind...
Hat sich erledigt, danke