Variablen in Procedure freigeben.

[Muetze1]

Und damit das ganze auch im - wie immer unwahrscheinlichen - Fehlerfall passiert, nutze try/finally:

Delphi-Quellcode:

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