Fórum O que esta errado ... #184171

Senhores, estou precisando de uma ajuda de vocês, estou usando o seguinte código para pegar algumas informações de duas tabelas sendo que uma dessas tenho que pegar a hora que esta cadastrada e me retornar a descrição referente, o meu problema é que quando estou rodando o programa a hora e descrição que estão sendo cadastradas é a hora do almoço, e quando mudo o relógio do windows não muda nada continua a mesma coisa. O que eu posso fazer ?? Alguém pode me ajudar com o código fonte abaixo.:

var
cod1,cod2 : integer;
hora : string;
oi : boolean;
begin
oi := false;
with dm do begin
if key = vk_return then begin
hora := copy(edit3.Text,1,5);
if edit1.Text <> ´´ then begin
if CDSFuncionarios.Locate(´cpf´,edit1.Text,[]) then begin
repeat
if (strtotime(hora) >= CDSRelogioHINICIO.Value) and (strtotime(hora) <= CDSRelogioHFIM.Value) then begin
if CDSFuncionarios.Locate(´cpf´,edit1.Text,[]) then begin
if CDSRelogioDESCRICAO.Value = ´BOM DESCANSO´ then begin
showmessage(´Funcionário ja Saiu.´);
oi := true;
end
else
CDSRelogio.Next;
end;
if oi = false then begin
showmessage(CDSRelogio.FieldValues[´Descricao´]);
CDSControle.Insert;
cod1 := (CDSControle.RecordCount+1);
CDSControle.FieldByName(´id_controle´).AsString := inttostr(cod1);
CDSControleNOME.Value := CDSFuncionariosNOME.Value;
CDSControleIF_FUNC.Value := CDSFuncionariosID_FUNC.Value;
CDSControleID_HORA.Value := CDSRelogioID_RELOGIO.Value;
CDSControleDESCRICAO.Value := CDSRelogioDESCRICAO.Value;
CDSControle.FieldByName(´cpf´).AsString := edit1.Text;
CDSControle.FieldByName(´nome´).AsString := CDSFuncionariosNOME.Value;
CDSControleDSEMANA.AsString := edit2.Text;
CDSControleDMES.AsString := label6.Caption;
CDSControle.ApplyUpdates(0);
CDSControle.Refresh;
edit1.Clear;
oi := true;
end
end
else
CDSRelogio.Next;
until oi = true;
end;
end;
end;
end;
end;