Ich gehe mal davon aus das sollte:
Code:
function TForm1.MoreResults(var value2 : integer): integer;
begin
Result := 1;
value2 := 2;
end;
heißen, aber...
Schlimmer gehts nimmer!
Entweder man schreibt sich eine Prozedur und hat Seiteneffekte.
Oder man schreibt sich eine Funktion. Aber die Vermischung von beidem ist einfach... siehe oben.