Zahlen umwandeln (Bin, Oct, Dec, Hex)

[Luckie]

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.