function mit 2 ausgabewerten

[Hador]

Um auch mal die Alternative zu zeigen:

Delphi-Quellcode:

procedure MachIrgendwas(InputA, InputB: string; var OutputA, OutputB: string);
begin
  [...]
  OutputA := 'Balblub';
  OutputB := 'Balblub';
end;

Und so kann man das ganze dann aufrufen:

Delphi-Quellcode:

var
  s1, s2: String;
begin
  [...]
  MachIrgendwas('Text1', 'Text2', s1, s2);
  ShowMessage(s1); //s1 enthält jetzt sozusagen das erste Ergebnis
  ShowMessage(s2); //s2 enthält jetzt sozusagen das zweite Ergebnis
  [...]

EDIT:
An sich würden sogar nur die beiden var-Parameter reichen, wenn du dort schon die Sachen übergibst.