Procedure Wert zurückliefern

[netscanner]

Hallo Leute,
habe wieder mal ein kleines Problem...
Ich habe hier 2 Proceduren.
Nun möchte ich den Wert a an die Procedure test liefern und möchte dann den Wert b zurückgeliefert bekommen...
Das klappt aber irgendwie nicht
Kann mir jemand helfen?

Delphi-Quellcode:

procedure test (a :integer; var b,c : integer);
begin
b := a div 2;
c := a mod 3;
end;

procedure TForm1.Button1Click(Sender: TObject);
var a : integer;
begin
a := 5;
edit2.Text:= inttostr (test (a,b)); //daran ist was falsch :)
end;