Hallo,
Du kannst Dir beliebig viele Rückgabewerte auch mittels einer Prozedur holen; dafür benötigst Du nichteinmal eine Funktion.
Nutze einfach den Var-Parameter.
Delphi-Quellcode:
Procedure TForm1.IchGebeWasZurueck(Var Wert1: Integer; Var Wert2: String);
Begin
Wert1 := 5;
Wert2 := 'Fuenf';
End;
procedure TForm1.IchWillWasHaben;
var
IntegerWert: Integer;
StringWert: String;
begin
IchGebeWasZurueck(IntegerWert, StringWert);
ShowMessage(IntToStr(IntegerWert));
ShowMessage(StringWert);
end;
Ob das allerdings die beste Lösung für Deine Problemstellung ist, kann ich nicht sagen.