Dir wurde doch der Fehler genau genannt?
> Wrong number of parameters specified for call to "Display_Result"
Ja, Display_Result möchte einen Parameter haben.
> Incompatible type arg no. 2: Got "Procedure/Function", expected "TDataRecieved_Param"
Du hast "Procedure" übergeben, aber der Parameter in Mail_Confirm ist ein TDataRecieved_Param,
also deine "procedure" hat die falsche Signatur (ParameterTypen+Result).
Delphi-Quellcode:
Mail_Confirm(v_code, procedure(JSResult: boolean) // also genauso, wie TDataRecieved_Param definiert wurde
begin
Display_Result(JSResult); // k.A. was du hier eigentlich anzeigen willst (niemandem hast du verraten wie Display_Result definiert ist)
end);
Außerdem willst du bestimmt "das" JSResult aus dem Callback haben
und nicht irgendein "JSResult", was du in WebButton1Click definiert hattest (und dem noch nichtmal ein Wert zugewiesen wurde).
Wenn Display_Result eine Prozedur oder Klassenmethode
procedure {TEineKlasse.}Display_Result(irgendwas: boolean);
ist,
dann geht es auch direkt, da die Signatur passt.
Mail_Confirm(v_code, Display_Result);
außer "Display_Result" war nur ein "Dummycode", für irgendwas zum Anzeigen.