Variablen in Procedure freigeben.

[thkerkmann]

und gib die Daten dort frei, wo du sie erstellt hast!!

Delphi-Quellcode:

Procedure MachWas(var data : TmeineKlasse);
begin
  //.. irgend was
  // data.free;
end;

procedure Timer;
var
  data : TmeineKlasse;
begin
  data := TmeineKlasse.create;
  data.bla := bla;
  MachWas(data); 
  data.Free;
end;