//EDIT: roter Kasten, wo bist du???
// Erklärungen: s. Leddl's Post
Versuchs mal so (ungetestet):
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;
test(a,b,c);
edit2.Text := inttostr(a);
edit3.Text := inttostr(b);
edit4.Text := inttostr(c);
end;