Deine Funktion
spiegeln ist keine Methode deiner Klasse
TSpiegel. Du musst sie zu einer Methode deiner Klasse machen, in dem du den Namen der Klasse vor die Funktion schreibst:
Delphi-Quellcode:
function TSpiegel.spiegeln ( mStrahl,mSpiegel : Double) : Double;
var
m1,m2,m3,a : Double;
begin