Konventer Binær til Decimal

Jeg forsøger at lave et lille program der skal konverter Decimal til Binær og omvent.
Konventeringen Decimal til Binær virker fint.
Men konventeringen Binær til Decimal virker ikke.

Får fejlmeddelsen:
[Error] Unit1.pas(92): Incompatible types: 'String' and 'Integer'
[Fatal Error] Project1.dpr(5): Could not compile used unit 'Unit1.pas'

Hvad går der galt?
Hvordan skal det skrives?

Mine Delphi 6 koder:

function TForm1.IntToBin(Value : Integer): String;
var
  i: Integer;
  activ : boolean;
begin
    activ := false;
  for i:= 31 downto 0 do
    if Value and (1 shl i) = 0 then
    begin
      if activ then
          Result := Result + '0';
    end
    else
    begin
        Result := Result + '1';
        activ := true;
    end;
end;

function TForm1.BinToInt(Value: String): LongInt;
var
  i,Size: Integer;
begin
  Result:=0;
  Size:=Length(Value);
  for i:= 1 to size do
    if Value[i] = '1' then
      Result := result + round(power(2,size - i));
end;


procedure TForm1.LMDButton1Click(Sender: TObject);
Var
    DecToBin:Integer;
begin
DecToBin:=StrToInt(LMDEdit1.Text);
LMDMemo1.Text:=(IntToBin(DecToBin));
end;

procedure TForm1.LMDButton2Click(Sender: TObject);
begin
Close;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
LMDEdit1.Clear;
LMDMemo1.Clear;
end;

procedure TForm1.LMDButton3Click(Sender: TObject);
Var
    BinToDec:Integer;
begin
BinToDec:=StrToInt(LMDEdit1.Text);
LMDMemo1.Text:=(BinToInt(BinToDec));
end;

end.

Mvh
MJ