Abl:= TPolynom.Ableitung(Self); 
  f0:=P.Parse(EdEin.text);
  f1:=f0.Ableitung; 
  f1:=f1.Vereinfachung;
  Abl := f1;