перевод десятичных чисел в шестнадцатеричную систему

var
N, M: single;
Bin: string;
procedure TForm1.Button1Click(Sender: TObject);
begin
N := StrToFloat(Edit1.Text);
Label1.Caption := '0.';
Bin := ' ';
while N>0 Do
begin
M:=N*2;
N := Frac(M);
Bin := Bin + FloatToStr(Int(M));
end;
Label1.Caption := Label1.Caption + Bin;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
N := StrToFloat(Edit1.Text);
Label2.Caption := '0.';
Bin := ' ';
while N>0 Do
begin
M:=N*8;
N := Frac(M);
Bin := Bin + FloatToStr(Int(M));
end;
Label2.Caption := Label2.Caption + Bin;
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
N := StrToFloat(Edit1.Text);
Label3.Caption := '0.';
Bin := ' ';
while N>0 Do
begin
M:=N*16;
N := Frac(M);
Bin := Bin + FloatToStr(Int(M));
end;
Label3.Caption := Label3.Caption + Bin;
end;

function BIN2HEX(BIN: string): string;
 
  function SetHex(St: string; var Error: BOOLEAN): CHAR;
 
  var
    Ch: CHAR;
 
  begin
    if St = '0000' then
      Ch := '0'
    else if St = '0001' then
      Ch := '1'
    else if St = '0010' then
      Ch := '2'
    else if St = '0011' then
      Ch := '3'
    else if St = '0100' then
      Ch := '4'
    else if St = '0101' then
      Ch := '5'
    else if St = '0110' then
      Ch := '6'
    else if St = '0111' then
      Ch := '7'
    else if St = '1000' then
      Ch := '8'
    else if St = '1001' then
      Ch := '9'
    else if St = '1010' then
      Ch := 'A'
    else if St = '1011' then
      Ch := 'B'
    else if St = '1100' then
      Ch := 'C'
    else if St = '1101' then
      Ch := 'D'
    else if St = '1110' then
      Ch := 'E'
    else if St = '1111' then
      Ch := 'F'
    else
      Error := True;
    SetHex := Ch;
  end;
 
var
  HEX: string;
  I: INTEGER;
  Temp: string[4];
  Error: BOOLEAN;
 
begin
  Error := False;
  if BIN = '0' then
    HEX := '0'
  else
  begin
    Temp := '';
    HEX := '';
    if Length(BIN) mod 4 <> 0 then
      repeat
        BIN := '0' + BIN;
      until Length(BIN) mod 4 = 0;
    for I := 1 to Length(BIN) do
    begin
      Temp := Temp + BIN[I];
      if Length(Temp) = 4 then
      begin
        HEX := HEX + SetHex(Temp, Error);
        Temp := '';
      end;
    end;
  end;
  if Error then
    BIN2HEX := '0'
  else
    BIN2HEX := HEX;
end;

function HEX2BIN(HEX: string): string;
 
var
  BIN: string;
  I: INTEGER;
  Error: BOOLEAN;
 
begin
  Error := False;
  BIN := '';
  for I := 1 to Length(HEX) do
    case UpCase(HEX[I]) of
      '0': BIN := BIN + '0000';
      '1': BIN := BIN + '0001';
      '2': BIN := BIN + '0010';
      '3': BIN := BIN + '0011';
      '4': BIN := BIN + '0100';
      '5': BIN := BIN + '0101';
      '6': BIN := BIN + '0110';
      '7': BIN := BIN + '0111';
      '8': BIN := BIN + '1000';
      '9': BIN := BIN + '1001';
      'A': BIN := BIN + '1010';
      'B': BIN := BIN + '1011';
      'C': BIN := BIN + '1100';
      'D': BIN := BIN + '1101';
      'E': BIN := BIN + '1110';
      'F': BIN := BIN + '1111';
    else
      Error := True;
    end;
  if Error then
    HEX2BIN := '0'
  else
    HEX2BIN := BIN;
end;

procedure TForm1.Button1.Click;
begin
Edit2.text:= HEX2BIN(edit1.text);
end;