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

procedure TForm1.Button1Click(Sender: TObject);
var i :Integer;
    Count : Integer;
begin
  Count := 0;
  for i := 1 to length(Edit1.Text) do Count := Count + ord(Edit1.Text[i]);
  showmessage(IntToHex(count,8));
end;					

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

Function CalcString(AString: String): Integer;
Var
 Lauf: Integer;
 Temp: Integer;
Begin
 Temp:=0;
 For Lauf:=0 to LEngth(AString) do
   Temp:=Temp + Byte(AString[Lauf]);
 Result:=Temp;
End;

procedure TForm1.Label1Click(Sender: TObject);
begin
 Label1.Caption:=IntToHex(CalcString('Hallo'), 4);
end;