Klasser

Hejsa!

Jeg har nogle problemmer når jeg prøver at lave en klasse, hvis jeg laver destroy lige efter jeg har brugt min klasse får jeg en acces violation. Hvis jeg ikke gøre så får jeg en acces violation når jeg lukker programmet, er der nogen der har en ide til hvad jeg gør galt.

Her er min klasse:

type
  TComputer = class

  procedure ChangeRam(tram : Integer);
  constructor Create(tram, tplads, tcpu : Integer);
  destructor Destroy();

  private

  public
    ram, plads, cpu : Integer;

  end;

Her er så selve procedurerne:

constructor TComputer.Create(tram, tplads, tcpu : Integer);
begin;
  inherited Create;
  ram := tram;
  plads := tplads;
  cpu := tcpu;
  showmessage('now');
end;

destructor TComputer.Destroy();
begin;
  inherited Destroy;
end;

procedure TComputer.ChangeRam(tram : Integer);
begin;
  ram := tram;
end;

Og til sidst, min procedure når man trykker på en knap:

procedure TForm1.Button1Click(Sender: TObject);
var
  MinComputer : TComputer;
begin
  MinComputer.Create(10,20,30);
  MinComputer.ChangeRam(30);
  showmessage(IntToStr(MinComputer.ram));
  MinComputer.Destroy;
end;

Håber virkelig der er nogle der kan hjælpe

---
Hilsen Anders