De un memo a un TDataTime

[jorgegetafe]

Ya lo he probado, de nuevo muchas gracias a los dos por vuestro tiempo.

Como ya habreis intuido estoy haciendo un programa para que cuando la hora del usuario coincida con el sistema se apague el ordenador, o se apague la pantalla... cosas de esas...

Aplicando vuestro código, lo pongo en un timer de esta forma:

Código Delphi [-]
procedure TForm1.AccionTimer(Sender: TObject);
Var
HUser: TDateTime;
BEGIN
HUser := EncodeTime(StrToInt(hora.Text), StrToInt(minuto.Text), StrToInt(segundo.Text), 0);
IF (HUser = time) THEN
showmessage ('Es la misma hora');
END;

Resulta que aunque ponga la misma hora que el sistema, la condicion: "IF (HUser = time) THEN" nunca se me cumple :-S y claro nunca se realiza lo que yo quiero que se haga, en este caso por probar un showmessage. No me entra en la cabeza que puede estar mal, ¿sabeis vosotros que falla? Por cierto el timer esta on jeje.