Hola,
quizás podrías probar este código a ver si te sirve, utiliza la variable bExec para chequear que se repita solo una vez:
Código Delphi
[-]
bExec: Bool;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
if (not bExec) and (TimeToStr(Time)='22:12:00') then begin
bExec:= true;
end;
end;
Saludos