Was ist hier falsch?

[Schnittcher]

Hallo,

was ist hier falsch? Das else wird immer unterstrichen?

Delphi-Quellcode:

procedure TForm1.cmdBerechneClick(Sender: TObject);
var
Berechnung: IBerechnung;
kw: Double;
begin
try
if radiops.Checked then
kw:= StrToFloat(edKW.Text);
Berechnung:= Tberechnung.Create;
Berechnung.ps := kw;
lbPS.Caption:= FloatToStr(Berechnung.Ergebnis)+ 'PS';
Berechnung:= nil
else
kw:= StrToFloat(edKW.Text);
Berechnung:= Tberechnung.Create;
Berechnung.ps := kw;
lbPS.Caption:= FloatToStr(Berechnung.Ergebnis)+ 'PS';
Berechnung:= nil;
end;
end;
except
raise EBerechnung.Create('Fehler');
end;
end;

Gruß,
Schnittcher