1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:

procedure TForm1.Button1Click(Sender: TObject);
var
Zeichen : char;         // der Buchstabe
Dezimal : Integer;      // die Dezimal Zahl
HexaDezimal : String;   // der Hexadezimal Wert
Binaer  : PChar;        // der Binär Wert
begin
// der Reine Buchstabe
Zeichen := 'A';
Memo1.Text :=  Memo1.Text + 'Buchstabe: ' + Zeichen + ';  ';

// Dezimal Wert des Buchstabe
Dezimal := Ord(Zeichen);
Memo1.Text :=  Memo1.Text + 'Dezimal Wert: ' + IntToStr(Dezimal) + ';  ';

// HexaDezimal Wert der Dezimal Zahl
HexaDezimal := IntToHex(Dezimal, 8);
Memo1.Text :=  Memo1.Text + 'HexaDezimal Wert: ' + HexaDezimal + ';  ';

// BinaerWer des HexaDezimalWerts
HexToBin(PChar(HexaDezimal), Binaer, Length(HexaDezimal)div 2 );
Memo1.Text :=  Memo1.Text + 'Binär Wert: ' + Binaer + ';  ';

end;					

1:

Buchstabe: A;  Dezimal Wert: 65;  HexaDezimal Wert: 00000041;  Binär Wert: ;					

1:

Buchstabe: A;  Dezimal Wert: 65;  HexaDezimal Wert: 41;  Binär Wert: A½;					

1:
2:
3:
4:
5:
6:
7:
8:

function IntToBin(Int: Integer): String;
var
i : Integer;
begin
Result := '';
for i := 7 downto 0 do
Result := Result + IntToStr((Int shr i) and 1);
end;					

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

function Hex2Bin(const hex :string) :string;
var i :integer;
begin
   Result := '';
   for i := 1 to Length(hex) do
      case hex[i] of
         '0' : Result := Result+'0000';
         '1' : Result := Result+'0001';
         ...
         'F' : Result := Result+'1111';
end;