OOP konform 2->1

[Antigo]

Hi,
Ich möchte eine Funktion haben, der ich 2 Instanzen einer Klasse übergebe, und die dann eine neue Instanz der Klasse zurückgibt.

Delphi-Quellcode:

function foo(a,b:TKLasse):TKlasse;
....
c:=foo(a,b);

Wie implementiere ich das ganze jetzt OOP konform? sollte foo eine Methode von TKlasse, so dass ich dann quasi aufriefe:

Delphi-Quellcode:

function TKLasse.foo(b:TKLasse):TKLasse
...
c:= a.foo(b);

oder kann ich die funktion einfach losgelöst von der Klasse TKLasse in die selbe Unit reinpacken?

wie würdet ihr das machen.

danke schonmal