ich habe jetzt rechenart : char festgelegt (übrigends alle als globale varialblen)

und jetzt meckert er hier
Code: 
begin
  try
      case (rechenart) of 
        '+' : result := alt + StrToFloat (edit1.text);
        '-' : result := alt - StrToFloat (edit1.text);
      end;
      edit1.text := Floattostr (result);
  except
  edit1.Text := ('Fehler');
end;
bei der zeile

Code: 
'+' : result := alt + StrToFloat (edit1.text) ;
rum dass es der string inkompatibel ist und extendet also zu lang?
was fehlt mir noch