Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
begin
//edit1.text:=(IntToStr(WochenTag(Strtoint(edit2.text), strtoint(edit3.text), strtoint(edit4.text)))); // dort kommt kein Fehler
Edit1.Text := FloatToStr(WochenTag(IntToStr(edit2.Text), IntToStr(Edit3.Text), IntToStr(Edit4.Text))); // dort muss man ein bisschen mehr nachdenken, damit auch keiner kommt ...
end;
So ist's zumindest bei meinem D7 ...