if then anweisung

[force]

Hallo,

Ich wollte für ein kleines Programm RadioButtons verwenden, welche durch einen Button mit einer if-then Anweisung benutzt werden sollen.
Leider kann ich es bisher nicht compelieren weil jedesmal ein Fehler bei der then Anweisung erscheint, mir ist jedoch nicht klar wo der Fehler liegt.
Hier ein Ausschnitt aus dem Quellcode:

Delphi-Quellcode:

procedure TForm1.BerechnenClick(Sender: TObject);
 var Eingabe : Integer ;
     zahl1 : Real ;
     rechnen : Real ;
begin
 zahl1 := StrToFloat(Edit1.Text) ;
  if Eingabe=MetertoFeettest
   then
    begin
     rechnen := zahl1 * 3.28095 ;
     ErgebnisLabel.Caption := FloatToStr(rechnen);
      end
end;

Könnte mir bitte jemand sagen wo der Fehler ist?
Danke

Gruß force