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); 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.