1:
2:
3:
4:
5:

procedure WasIstRdy;
var rdy: String;
begin
 rdy := 'r' + 'ea' + 'dy';
end;					

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

procedure TForm1.Button1Click(Sender: TObject);
var zahl: integer;
begin
 zahl := StrToInt(edit1.Text);
 listbox1.Items.Add(IntTohex(zahl,1));
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:

var
  IntZahl: Integer;
  HexZahl: String;
begin
  IntZahl := StrToInt(Edit1.Text);
  while (IntZahl mod 16 <> IntZahl) and (IntZahl > 0) do
  begin
    if (IntZahl mod 16 >= 10) and (IntZahl mod 16 <= 15) then
      HexZahl := Chr((IntZahl mod 16) + 55) + HexZahl
    else HexZahl := IntToStr(IntZahl mod 16) + HexZahl;

    IntZahl := Trunc(IntZahl / 16);
  end;
  if (IntZahl >= 10) and (IntZahl <= 15) then
    HexZahl := Chr(IntZahl + 55) + HexZahl
  else HexZahl := IntToStr(IntZahl) + HexZahl;
  //Irgendeine ausgabe.. z.b. Memo1.Lines.Add(HexZahl);
end;