procedure und pointer

[day]

hallo
Ich möchte zwei werte in einer funktion zurück geben. Daher dachte ich, ich definiere ein Procedure mit zwei pointer (Double und ein String). Allerdings klappt das nicht so ganz.
wie sieht die definition denn aus?

procedure foo(Temp1 : ^Double; Temp2 : ^String) ; ?????

[Luckie]

Warum so umständlich? Nimm var-Parameter.

[day]

wenn es einfacher geht, dann bin ich immer offen für neues. Wie sieht denn die definition mit var aus?

[Luckie]

DoSomething(var Foo: String; var Bar Integer);