[ecfisa]

Hola.

A grandes rasgos, como para darte una idea, primero tendrías que incrementar el índice ap en el método add:

Código Delphi [-]
procedure Tusuarios.add(id: Integer; nombre: string; supConDer,
  supSinDer: Currency; cultivo: string);
begin
  idU[ap]:= id;
  nombreU.Add(nombre);
  supCder[ap] := supConDer;
  supSder[ap] := supSinDer;
  cultivoU.Add(cultivo);
  Inc(ap);  // <- Aquí
end;

Y un ejemplo para mostrar el contenido:

Código Delphi [-]
procedure Tusuarios.Show(Indice: Integer);
begin
  if (Indice < 0)or(Indice > ap-1) then
     raise Exception.Create('Indice fuera de rango');
  ShowMessage(Format('%d %s %f %f %s',
   [idU[Indice],nombreU[Indice],supCder[Indice],supSder[Indice],CultivoU[Indice]]))
end;

Saludos.