[*Caro*]

Empezado por loadminds

claro claro me queda apuntando al ultimo, voy a probar en el Onshow, muchas gracias!!!

El OnShow no te va a solucionar que no apunte al ultimo registro, es solo para que se ejecute una vez tu codigo. Para que no apunte al ultimo cuando recorres tu DataSet debes utilizar EnableControl y DisableControl.

Código Delphi [-]
  
  With dbgrid1.datasource.dataset do begin
  DisableControls; //Deshabilitamos los controles asociados a ese DataSet 
  First;
  While not eof do begin
   if Ccat.Items.IndexOf(FieldByName('Categoria').AsString)=-1 then
    Ccat.Items.Add(FieldByName('Categoria').AsString);   
   Next;
  end;
  EnableControls;//habilitamos nuevamente los controles

Saluditos