Nur Eingabe von Zahlen erlaubt...aber wie

[Corleone]

Hi, habe gerade mit dem Programmerien begonnen und hätte da eine Frage und zwar.

Wie bekomm ich das hin, dass man in ein Edit-Feld nur Zahlen eingeben kann bzw. dass eine Fehlermeldung kommt wenn man was anderes eingibt. Weil jetzt stürzt mein Programm einfach ab.

Und vorallem wo muss ich das reinschreiben.

Hier der Delphi-Code:

Delphi-Quellcode:

unit Vieleck;            

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TFormVieleck = class(TForm)
    LabelEckpunkte: TLabel;           {Label für die Eckpunkte}
    LabelUmkreisradius: TLabel;       {Label für den Umkreisradius}
    LabelFlaecheninhalt: TLabel;      {Label für den Flächeninhalt}
    Editradius: TEdit;                {Eingabefeld für den Umkreisradius}
    Editflaeche: TEdit;               {Ausgabefeld für den Flächeninhalt}
    Editeck: TEdit;                   {Eingabefeld für die Anzahl der Ecken}
    ButtonBerechnen: TButton;         {Button zum Berechnen des Vielecks}
    ButtonEnde: TButton;              {Button zum Beenden des Programms}
    procedure ButtonEndeClick(Sender: TObject);
    procedure ButtonBerechnenClick(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  FormVieleck: TFormVieleck;

implementation

{$R *.dfm}

procedure TFormVieleck.ButtonBerechnenClick(Sender: TObject);

 var k,r,A:Real;                       {k = Variable für die ANzahl der Ecken
                                         r = Variable für den Umkreisradius
                                         A = Variable für den Flächeninhalt }

begin

  if (Editeck.Text='') or (Editradius.Text='') or (Editeck.Text='') or (Editradius.Text='')
  then ShowMessage('Bitte geben sie die Anzahl der Ecken des Vielecks und einen Umkreisradius ein.')

  else begin
    k:=StrtoFloat(Editeck.Text);
    r:=StrtoFloat(Editradius.Text);

            if (k<3) or (r<=0)
            then begin
                  ShowMessage('Falsche Eingabe! (Anzahl der Ecken muss mindestens 3 betragen und der Radius muss größer als 0 sein).')
            end
            else begin
                  A:=(k*Sqr(r))/2*sin((2*Pi)/k);
                  Editflaeche.Text:=FloattoStr(A);
            end;

  end;

end;
procedure TFormVieleck.ButtonEndeClick(Sender: TObject);
  begin
  Application.terminate    {Der Ende Button beendet das Programm}
  end;


end.

Dann hätte ich noch ein frage. Bei meiner 1. if-Schleife wo steht, dass wenn in einem der 2 EditFelder nichts drin steht, dass er eine Fehlermeldung ausgeben soll. Kann ich das noch irgendwie machen, dass wenn man bei einem Feld nichts eingibt kommt eine andere Fehlermeldung als wenn man bei der anderen nichts eingibt oder bei beiden.
Das gleiche dann bei der 2. if-Schleife.

danke schon mal im vorraus

mfg Corleone