Hmmm habs jetzt so:
Code:
function TForm1.MoreResults(var value2 : integer);
begin
Result := 1;
value2 := 2;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
showmessage(MoreResults);
showmessage(IntToStr(MoreResults(Value2)));
end;
Jedoch ist die zweite Messagebox immer leer