Não consigo entender porque não Funciona a Consulta...

procedure TFrmPrincipal.DBGridCostCellClick(Column: TColumn);
var
Dia : TDate;
CostCod, MaqCod, Integer, HoraIni, HoraFin : String;
begin
begin
HoraFin := TimeToStr(Now);
Dia := Now;
CostCod := DBGridCost.Columns[1].Field.AsString;
MaqCod := DBGridCost.Columns[2].Field.AsString;
begin
DmDados.Config.Open;
HoraIni := DmDados.ConfigIniTurnoManha.AsString;
DmDados.Config.Close;
end;
end;
begin
With DmDados.QryPsqCostureiras do
begin
SQL.Clear;
Close;
SQL.Text := ´SELECT tbproclote.CodMaq, tabmaquina.NmMaq, tbcost.CodCost, tbcost.NmCost, Data, Hora ´+
´FROM tbproclote, tbcostlote, tblote ´+
´LEFT JOIN tabmaquina ON tabmaquina.CodMaq = tbproclote.CodMaq ´+
´LEFT JOIN tbcost on tbcost.CodCost = tbcostlote.CodCost ´+
´WHERE ´+
´(tbproclote.CodMaq Like:MaqCod) AND ´+
´(tbcostlote.CodCost Like:CostCod) AND ´+
´(tblote.CodLote Like:LoteCod) AND ´+
´(Data Like:Dia) AND ´+
´(Hora BETWEEN :HoraInicio AND :HoraFinal)´;
ParamByName(´MaqCod´).AsString := MaqCod;
ParamByName(´CostCod´).AsString := CostCod;
ParamByName(´LoteCod´).AsString := DBEdit1.Text;
ParamByName(´Dia´).AsDate := Dia;
ParamByName(´HoraInicio´).AsString := HoraIni;
[color=red:3324794747]ParamByName(´HoraFinal´).AsString := HoraFin;[/color:3324794747]
Open;
end;
end;
end;
end.

O problema é o seguinte... a última linha dos parâmetros para a Query...
ParamByName(´HoraFinal´).AsString := HoraFin;

Se eu atribuir um valor, funciona... as eu preciso capturar a hora do mícro...
[color=red:3324794747] ParamByName(´HoraFinal´).AsString := ´08:15:00´;[/color:3324794747]