1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

function IntToBit(int: Integer): String;
var
  i: Integer;
begin
  SetLength(result, 32);     //Länge festlegen (32 da Integer = 32Bit);
  for i := 0 to 31 do begin  //alle 32 Bits durchzählen 
    if (int and 1) = 0 then  //wenn das letzte/niederwertigste Bit = 0 ist, dann
      result[32-i] := '0'    //0 in String schreiben
    else                     //sonst
      result[32-i] := '1';   //1 in String schreiben
    int := int shr 1;        //Int um 1 Bit nach rechts schieben
  end;
end;					

1:
2:
3:
4:
5:
6:

type
  integerstring=packed record
    case integer of
      0:(i:integer);
      1:(c:array[1..sizeof(integer)] of char);
  end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

var
  zahl:integer;
  zeichenkette:string;
  intstr:integerstring;

begin
  //Konvertieren von Integer nach String:
  zahl := 65535;
  zeichenkette := 'Der Zahlenwert ist '+integerstring(zahl).c+' !';
  
  //Konvertieren von String zu Zahl:
  intstr.c := #255#255#0#0;
  zeichenkette := 'Der Wert war: '+inttostr(intstr.i)+' !'; //65535
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

Function DWordToBinaryStr(AValue: DWORD): String;
Var
    B: PByte;
Begin
    Result := StringOfChar('0', 32);
    B := @Byte(Result[32]);
    While AValue <> 0 Do
    Begin
        Inc(B^, AValue And 1);
        AValue := AValue Shr 1;
        Dec(B);
    End;
End;