Lehre Zeichenkette prüfen???

[lurch]

Danke alcaeus, dein Rat war schon mal gut. Bei der Umsetzung stoß ich jetzt noch auf folgendes kleines Problem: Beim compilieren gibt er mir aus das 1 ein undefinierter Bezeichner ist (Bei 1:begin):

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var a,b,c,gamma:real; g:integer;
  begin
    g:=Radiogroup1.Itemindex;
  case g of
    0:begin
        try
          a:=StrToFloat(Edit1.Text);
          b:=StrToFloat(Edit2.Text);
          c:=StrToFloat(Edit3.Text);
        except
          MessageDlg('Eingabe unzulässig! Kein Dreieck konstruierbar',mtError,[mbOK],0);
        end;
          if detest(a,b,c)=true then
            begin
              Showmessage ('Ihre Eingaben sind richtig');
              exit
              end
            else MessageDlg('Eingabe unzulässig! Kein Dreieck konstruierbar',mtError,[mbOK],0);
          end;
      end;
    1:begin
        try
          a:=StrToFloat(Edit1.Text);
          b:=StrToFloat(Edit2.Text);
          gamma:=StrToFloat(Edit4.Text);
        except
          MessageDlg('Eingabe unzulässig! Kein Dreieck konstruierbar',mtError,[mbOK],0);
        end;
            if gamma <= 180 then
              begin
                ShowMessage ('Ihre Eingaben sind richtig');
                exit
                end
            else  MessageDlg('Eingabe unzulässig! Kein Dreieck konstruierbar',mtError,[mbOK],0)
      end;
end;
end.