[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;