procedure TForm1.BtKDClick(Sender: TObject); 
VAR x,x0 : REAL; 
begin 
  x := StrToFloat(EdcaNull.text);
  x0 := p.Nullstelle(x);
  IF x0=Schrott THEN EdNull2.text:=floattostr(x) ELSE
  EdNull2.text:=floattostr(x0)
end;

/*
  Also ich bin mir nicht sicher ob das irgendwie klappt, vor allem weil TPolynom noch irgendwie
  gefrickelt werden müsste damit es die Funktion Nullstelle() überhaupt gibt...Leider weiß ich nicht
  mehr wie man das in Delphi macht :-( Ich hoffe das hilft dir trotzdem weiter :-)
*/