Taschenrechner in der Schule

[bogohl]

Delphi-Quellcode:

function TRechnen.Dualzahl : string;
//-------------------------------------------------
 begin
  while i > 0 do
   begin
    if (i mod 2) <> 0 then b := b + '1'
  else b := b + '0';
    i := i div 2;
   end;
 end; 

procedure TRechner.DatenAkktualisierenDual;             //steht in meiner Hauptunit
//-----------------------------------------------------
 begin
  try
   Rechnen.SetZahl3 (StrToInt(Eingabe1Edt.Text));
  except
   showmessage('Gib Bitte ganze Zahl ein!!');
  end;
 end; 

procedure TRechner.DezZuDualBtnClick(Sender: TObject);
//-----------------------------------------------------
 begin
  DatenAkktualisierenDual;
  ErgebnisPnl.Caption:= StrToFloat( // bin mir nicht sicher was hier rein muß);
  FensterAkktualisieren;
 end;

Soll also in einem Panel angezeigt werden!!
Hoffe das reicht jetzt wenn nicht einfach noch mal melden!!!