Bitte Hilfe für umrechnungsprogramm

[GodlikeEvi]

[delphi][delphi][quote][b][delphi]Huhu Leute,

ich hab folgendes Problem, ich schreibe grad ein programm zur Ermittlung von Dezimal und dual daten und deren jeweiligen umwandlung.
doch nun hab ich das problem: Inkompatible typen integer und extended.
und zwar an dieser zeile:

Dezimal := Dezimal + StrToInt(self.Text[i])*IntPower(2,length(self.Text)-1)

die procedure sieht vollständig so aus:

procedure T_Bin_Edit.P_Dez(Sender: TObject);
begin
begin
if self.Text <> '' then
Dezimal := 0;
i := 1;
end;
begin
while (i<=length(self.Text))and(StrToInt(self.Text[i])<=1) do
begin
Dezimal := Dezimal + StrToInt(self.Text[i])*IntPower(2,length(self.Text)-i);
inc(i);
end;
begin
if i<=length(self.Text) then
Dezimal := 0;
self.Text := FloatToStr(Dezimal);
end;
end;
end;

bitte um schnelle hilfe

mfg