Daten von einem Formular in ein anderes übernehmen

[KRM]

Hmmm...

es hat sich doch noch ein Problem ergeben...

Und zwar:

Delphi-Quellcode:

procedure TForm5.FormClose(Sender: TObject; var Action: TCloseAction);
var
  ok : BOOLEAN;
begin
  ok := true;
  if (ModalResult=mrOK) then begin
      // Editfelder die Standard-Windowfarbe verpassen
    Edit1.Color := clWindow;
    Edit2.Color := clWindow;
    Edit3.Color := clWindow;

    F_Message.Caption := '';
    ok := true;
    if length(Edit1.Text) < 2 then begin
      F_Message.Caption := F_Message.Caption +
                      '-> Der Name muss mindestens 2 Zeichen lang sein.'#13#10;
      Edit1.Color := clYellow;
      ok := false;
    end;
    if length(Edit2.Text) < 5 then begin
      F_Message.Caption := F_Message.Caption +
                      '-> Die Geräte-Adresse muss mindestens 5 Zeichen lang sein.'#13#10;
      Edit2.Color := clYellow;
      ok := false;
    end;
    if length(Edit3.Text) < 7 then begin
      F_Message.Caption := F_Message.Caption +
                      '-> Der Befehl muss mindestens 7 Zeichen lang sein. ';
      Edit3.Color := clYellow;
      ok := false;
    end;

  end;
end;

ist der Code, wenn der Benutzer den "übernehmen"-Button anklickt und das Formular geschlossen wird.
Nun sollen ja dort die eingaben überprüft werden.
Wie bewirke ich denn, dass bei falschen Eingaben das Formular geöffnet bleibt?