Warum hängst du das nicht als komplettes Projekt an?
Ich habe nur mal grob drübergekuckt:
Result := InttoStr(StrToInt(FWert));
Wenn man versteht, was man da zusammenkopiert, dann sollte so ein Unsinn nicht bei raus kommen.
Delphi-Quellcode:
if RadioButton2.Checked = true then
begin
for i := 1 to Length(Edit1.Text) do
if Edit1.Text[i] <> '0' then
if Edit1.Text[i] <> '1' then
if Edit1.Text[i] <> '2' then
if Edit1.Text[i] <> '3' then
if Edit1.Text[i] <> '4' then
if Edit1.Text[i] <> '5' then
if Edit1.Text[i] <> '6' then
if Edit1.Text[i] <> '7' then
Mir erschließt sich nicht ganz der Sinn, aber das geht bestimmt auch einfacher und eleganter.