[kye_z]

De momento tengo esto pero no me funciona...

  
procedure TcrearClasse.FormShow(Sender: TObject);
begin
  nomClasse.Text:='';
  numTripulants.Text:='';
  taulaCategories.First;
  while not taulaCategories.Eof do
	begin
	  categories.AddItem(taulaCategories.IndexName,TObject.Create);
	  taulaCategories.Next;
	end

end;
end.

el taulaCategories es el TADOTable con la tabla que necesito.