Sicherung (Edit Feld-Button)

[xXcomputerrookieXx]

Hallöle!

Ich brauch mal eure Hilfe!Bei unserem Schulprojekt fehlt noch eine wichtige Sache und zwar ein Teil der Sicherung für Edit-Felder im Programm.Wenn die Edit Felder leer sind,dann kommt ja der Fehler : '' ist kein Integerwert,sobald man den Berechnen Button klickt.

Die bisherige Sicherung:

Delphi-Quellcode:

//  Sicherungen der einzelnen EDIT-Felder

procedure TFRM_Rentenversicherungsnummer.EDT_Z1Exit(Sender: TObject);
begin

  //Fehler keine Eingabe
  if EDT_Z1.text=''
    then
      begin
        showmessage('Ihre Eingabe fehlt! Bitte geben sie hier eine Ziffer ein!');
        EDT_Z1.setfocus;
        exit;  //sonst Fehler beim Lesen aus leeren Editfeldern in der
               //nächsten if-Abfrage
      end;

  //Fehler keine Ziffer
  if (ord(EDT_Z1.text[1])>57) or (ord(EDT_Z1.text[1])<48)
    then
      begin
        showmessage('Falsche Eingabe, bitte hier eine Ziffer eingeben!');
        EDT_Z1.text := '';
        EDT_Z1.setfocus;
      end;

end;

Also wir wollen noch eine Sicherung haben,die verhindert das gerechnet wird wenn alle 11 edit felder leer sind eine showmessage kommt


gruß

andre