--- oup/rewrite/Tools/BinEdit.pas	2007/02/20 22:03:11	104
+++ oup/rewrite/Tools/BinEdit.pas	2007/02/21 00:29:27	105
@@ -178,19 +178,6 @@ end;
 
 
 
-
-function IntToBin(Value: Byte): String;
-var
-  i: Byte;
-begin
-  Result := '';
-  for i := 7 downto 0 do
-    Result := Result + IntToStr((Value shr i) and $01);
-end;
-
-
-
-
 function TForm_BinEdit.GetValue(datatype: Word; offset: LongWord): String;
 var
   Data: TByteData;