Prueba asi:
Código Delphi
[-]procedure TForm1.DBGrid1CellClick(Column: TColumn);
begin
q_GridMovTrabajo.Close;
q_GridMovTrabajo.Params[0].AsInteger:=dbgrid1.Fields[0].AsInteger;
q_GridMovTrabajo.open
end;
Que bueno q encontraste la solucion.
Saludos