Fórum ´´ is not a valid floating point value. #262955

Boa tarde pessoal,

Bom, eh o seguinte tenho um StringGrid que eh alimentado conforme eh digitado os itens de um pedido de compra, eu coloquei o codigo ai em baixo para fazer a rolagem automatica dos itens, de forma que sempre ira me mostrar o ultimo item digitado, os itens digitados sao 6 TEdit CODIGO, QTD, PRECO, DESCONTO1,2,3.

//rolagem automatica
if nRows >= 8 then
SendMessage(StringGrid_RESERVA.Handle,WM_VSCROLL,SB_LINEDOWN,0);


Mas quando eu digito o oitavo item me da o seguinte erro ´ ´´ is not a valid floating point value.´ e perco o foco do cursor e pra continuar a digitar tenho de clicar 2x no Edit CODIGO.

Eu consegui resolver o problema da mensagem de erro ´ ´´ is not a valid floating point value.´ com esse codigo ai em baixo...

procedure TFrm_RESERVA.ED_CODExit(Sender: TObject);
begin
ActiveControl := nil;
PostMessage(ED_QUANT.Handle, WM_SETFOCUS, 0, 0);
ED_QUANT.SetFocus;
end;
procedure TFrm_RESERVA.ED_QUANTEnter(Sender: TObject);
begin
if ED_COD.Text = ´´ then
ED_COD.SetFocus;
end;

Mas quando tendo clicar no Botao para confirmar o pedido ou no botao de cancelar o foco nao sai do TEdit ED_COD, claro porque eu estou focando novamente o TEdit quando ele estiver em branco, mas se eu nao fizer isso da aquele primeiro erro ´ ´´ is not a valid.....´, e soh consigo sair ou confirmar digitando ALT+(letra destacada no botao). alguem jah passou por algo semelhante, como faco p/ resolver ou fazer de outra forma. Eu soh nao quero que o usuario passe do TEdit ED_CODIGO sem digitar nada.

Obrigado pessoal.