Erro raised exception class EInvalidOperation with message 'Cannot focus a disabled or invisible window'

Boa Tarde,

Alguém já se deparou com este erro: Erro raised exception class EInvalidOperation with message 'Cannot focus a disabled or invisible windon, já olhei todos os componentes que estão no form para ver se tem algum desabilitado ou invisible e estão todos ok! ai coloquei alguns breakpoint e o erro aparece nas seguintes linhas de código mais exato na parte destacada em negrito.

Esse código é de um form onde faço alguns lançamentos e chamo outro form para finalizar os lançamentos, como se fosse uma venda, na verdade é uma venda só que de serviços, eu lanço os serviços efetuados e finalizo clicando em um botão e chama essa tela para que eu possa lançar algum desconto, ai clico no botão finalizar para mandar os lançamentos para o banco e o erro de focus acontece.

Se alguém puder dar uma força! sou novo programando em delphi!

	procedure TF_Fecharmedicao.Fecharmedicao;

	begin

	with dm do

	  begin

	    cds_cadmedir.Open;

	    cds_cadmedir.Append;

	    cds_cadmedirID_OBRA.Value:= DMPesq.cdspesq_obrasID_OBRA.Value;

	           F_Medicao.cdsitens_servicos.First;

	          while not F_Medicao.cdsitens_servicos.eof do

	          begin

	       **     DM.cds_caditem_medir.Open;

	            DM.cds_caditem_medir.Append;

	            DM.cds_caditem_medirID_SERVICOS.Value:= F_Medicao.cdsitens_servicosID_SERVICOS.Value;

	            DM.cds_caditem_medirQUANTIDADE.AsFloat:= F_Medicao.cdsitens_servicosquantidade.AsFloat;

	            DM.cds_caditem_medirVALOR_UNIT.AsFloat:= F_Medicao.cdsitens_servicospreco.AsFloat;

	            DM.cds_caditem_medirVALOR_TOTAL.AsFloat:= F_Medicao.cdsitens_servicosValortotal.AsFloat;

	            F_Medicao.ID_SERVICOS.SetFocus;

	            F_Medicao.cdsitens_servicos.Next;

	            DM.cds_caditem_medir.Post;**

	          end;

	              DM.cds_caditem_medir.ApplyUpdates(0);

	              F_Medicao.cdsitens_servicos.EmptyDataSet;

	end;

	end;