mantener aplicación en barra superior

[[AgustinOrtu]]

Hola de nuevo danielmj

Yo prefiero utilizar sentencias SQL para cualquier operacion CRUD. En tu caso tambien me crearia otro FDQuery que utilizaria para este fin, sino perderias el SELECT

Código Delphi [-]
  with TFDQuery.Create(NIL) do
  begin
    Connection := TuConnectionAca;
    SQL.Text := ' INSERT INTO LaTabla (CampoTime) VALUES (:Hora) ';
    ParamByName('Hora').DataType := ftTime;
    ParamByName('Hora').AsTime := Hora; // Hora es un TTime
    Execute;
    Free:
  end;

Probalo de esa manera a ver si te resulta

Saludos