вызвать процедуру

[fize]

имеется процедура-

procedure checksum(strInp : string; var rE, rO : byte);
var i, i1 : longint;
begin
i1 := length(strInp);
For i:=1 to i1 do
if i mod 2 = 1 then
 rE := rE XOR ord(strInp[i])
else
 rO := rO XOR ord(strInp[i])
end;

как ее вызвать нажатием баттон1 и вывести значения rE и rO в лабелы 1 и 2 ?
p.s strInp = 1E0010230034000801

[Alex_FF]

что-то вроде этого:

procedure TForm1.Button1Click(Sender: TObject);
var
  rE, rO: Byte;
  strInp: String;
begin
  strInp := '1E0010230034000801';
  checksum(strInp, rE, rO);
  Label1.Caption := IntToStr(rE);
  Label2.Caption := IntToStr(rO);
end;

[Пепел Феникса]

procedure TForm1.Button1Click(Sender:TObject);
var i,j:integer;
begin
 checksum('1E0010230034000801',i,j);
 Label1.Caption:=IntToStr(i);
 Label2.Caption:=IntToStr(j);
end;

[fize]

Alex_FF, Пепел Феникса преогромное спасибо.

[fize]

подскажите еще. программа выдает неверное значение. для строки 1E0010230034000801 оно соответствует E 1F а у меня выводится 49 75.
исходник на vb2008-

Public Function checksum(ByVal command As String) As Byte()
Dim len, n As Integer
Dim xor_odd As Byte = &H0
Dim xor_even As Byte = &H0
Dim result(2) As Byte
len = command.Length

If len Mod 2 = 0 Then
For n = 0 To len - 4 Step 4
xor_even = xor_even Xor "&H" & command.Substring(n, 2)
xor_odd = xor_odd Xor "&H" & command.Substring(n + 2, 2)
Next

result(0) = xor_even
result(1) = xor_odd
Return result
End If
End Function