Il mio problema è che vorrei assegnare al risultato di una funzione la procedura OnTimer ma non so che valore passare.

type
TimerHandler = class(TObject)
procedure OnTimer(Sender: TObject);
end;


{$R *.res}
var
aTH : TimerHandler;
ApdComPort1 : TApdComPort;
Timer : TTimer;
Response : string;


function prova(): string;
begin
aTH := TimerHandler.Create;
Timer := TTimer.Create(nil);
Timer.interval := 3000;
Timer.OnTimer := aTH.OnTimer; // all'evento Ontimer avvio la procedura 'OnTimer'
Timer.enable := true; // abilito il timer scatenando l'evento Ontimer
Result := OnTimer(COSA METTO QUI?) //voglio visualizzare 'OK' creato in OnTimer
end;

procedure TimerHandler.OnTimer(Sender: TObject);
begin
Response := 'OK ';
end;


E' corretto il codice?