edit autocompletado mediante grid no funciona

[Rofocale]

Hola estuve viendo un codigo de autocompletar un edit mediante un grid que se despliega lo saque de este mismo foro
bueno el grid se despliega y me muestra los codigos perfectamente al igual que tambien me permite con las teclas subir y bajar mediante el grid

ahora lo que no funciona es que cuando estoy en el grid en un codigo especifico y le doy enter este no se copia al edit
a ver si me ayudan gracias

Código Delphi [-]
procedure TfrmVentas.txtCodigoKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin

             if Key = VK_DOWN then
                begin
                   dmDatos.cdsCodeArt.Next;
                   idciu:=dmDatos.cdsCodeArt.FieldByName('codigo').value;
                end;

             if Key = VK_UP then
                begin
                   dmDatos.cdsCodeArt.Prior;
                   idciu:=dmDatos.cdsCodeArt.FieldByName('codigo').value;
                end;
end;

procedure TfrmVentas.txtCodigoKeyPress(Sender: TObject; var Key: Char);
begin
 
        if not (Key in ['0'..'9',#8]) then
            Key := #0;

             codebusqgrid.Visible:=True;
             
             dmDatos.cdsCodeArt.Active := false;
             with dmDatos.qryCodeArt do
                 begin
                 close;
                 SQL.Clear;
   
                 Sql.Add('Select * from codigos where codigo like '''+ txtcodigo.Text +'%''');
                           Open;
                end;
                with dmDatos.cdsCodeArt do
                 begin
                 Active := true;
                 FieldByName('codigo').DisplayWidth := 320;
                 dmDatos.cdsCodeArt.FieldByName('codigo').DisplayLabel := 'Código';
                     end;

             if dmDatos.qryCodeArt.IsEmpty then
               begin
                ShowMessage('No hay Resultados');
                codebusqgrid.Visible:=False;
        
                txtcodigo.Clear;
               end;




               If Key = #13 Then
               begin
                  txtcodigo.Text:= (''+idciu+'');
               
                  BuscaArticulo;
                  codebusqgrid.Visible:=False;
               end;
end;

[[Caral]]

Hola
En este ejemplo:
El primero: al recorrerse el primer grid 1, se va cambiando el dato en el edit 1.
El Segundo: al recorrer el grid 2 y darle ENTER, el dato se muestra en el edit 2.
Saludos

[[Caral]]

Hola
Rofocale, No me hablas, no me escribes, no me dices nada....
Mis ejemplos eran buenitos....., dime algoooooo......
Saludos

[Rofocale]

no te hablo porque has hecho que eficsa ya no me ayude con mi problema de combobox jaja mentira caral.. recien he terminado de probarlo lo que me has enviado bueno al apretar enter ya me funciona
pero claro lo queria con las teclas abajo y arriba osea desplazarme y tome aun el codigo anterior del hilo de autocompletar el edit del cual tambien participaste

este es el codigo

Código Delphi [-]
procedure TAltasForm.CiudadEditKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin




             if Key = VK_DOWN then
                begin
                   QueryDataModule.CiudadZQuery.Next;
                   idciu:=QueryDataModule.CiudadZQuery.FieldByName('Ciudad').Text;
                end;

             if Key = VK_UP then
                begin
                   QueryDataModule.CiudadZQuery.Prior;
                   idciu:=QueryDataModule.CiudadZQuery.FieldByName('Ciudad').Text;
                end;
end;

bueno me funciona bien al bajar las felchas o subirla por el grid recorriendo los datos al apretar enter tambien sale en el edit

pero el error esta en que si por ejemplo el codigo es 30528 el que elijo este no me muestra en el edit dicho numero si no otro.. como si el cursor estuviera realmente posicionado en la tabla en otro lugar

quizas ese codigo no funcione bien no se que toy haciendo mal

Código Delphi [-]
procedure TfrmVentas.txtCodigoKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin

             if Key = VK_DOWN then
                begin
                   dmDatos.cdsCodeArt.Next;
                   idciu:=dmDatos.cdsCodeArt.FieldByName('codigo').value;
                end;

             if Key = VK_UP then
                begin
                   dmDatos.cdsCodeArt.Prior;
                   idciu:=dmDatos.cdsCodeArt.FieldByName('codigo').value;
                end;


end;

procedure TfrmVentas.txtCodigoKeyPress(Sender: TObject; var Key: Char);
begin

        if not (Key in ['0'..'9',#8]) then
            Key := #0;

             codebusqgrid.Visible:=True;
             //gridlist.Visible:=True;
             dmDatos.cdsCodeArt.Active := false;
             with dmDatos.qryCodeArt do
                 begin
                 close;
                 SQL.Clear;
 

                 Sql.Add('Select * from codigos where codigo like '''+ txtcodigo.Text +'%''');

                 Open;
                end;
                with dmDatos.cdsCodeArt do
                 begin
                 Active := true;
                 FieldByName('codigo').DisplayWidth := 320;
                 dmDatos.cdsCodeArt.FieldByName('codigo').DisplayLabel := 'Código';

                 end;

             if dmDatos.qryCodeArt.IsEmpty then
               begin
                ShowMessage('No hay Resultados');
                codebusqgrid.Visible:=False;
                //gridlist.Visible:=False;
                txtcodigo.Clear;
               end;





end;

procedure TfrmVentas.txtCodigoKeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin

      If Key = VK_Return Then
               begin
                  txtcodigo.Text:= (''+idciu+'');
                  //txtCodigo.Text := FrmArticuloBusq.sCodigo;
                  BuscaArticulo;
                  codebusqgrid.Visible:=False;
               end;
end;

ahi esta mi codigo completo por si me quieren ayudar
gracias