Второй день не могу понять куда утекает память...

[TwiX]

Вот набросал небольшой примерчик - вроде всё везде освобождается, только с каждым кликом по кнопке памяти требуется примерно на 700кб больше...

  myThread = class(TThread)
    bmp: TBitmap;
    procedure Execute; override;
  public
    tag: integer;
    constructor Create;
    destructor Destroy;
  end;

var
  Form2: TForm2;

implementation

{$R *.dfm}

constructor myThread.Create;
begin
  bmp := TBitmap.Create;
  inherited Create(false);
end;

destructor myThread.Destroy;
begin
  bmp.Free;
  terminate;
  inherited Destroy;
end;

procedure myThread.Execute;
begin
  bmp.Width := 1000;
  bmp.Height := 1000;
  bmp.Canvas.brush.Color := clGreen;
  bmp.Canvas.FillRect(rect(10, 990, 990, 10));
  bmp.SaveToFile(inttostr(tag) + '.bmp');

  Destroy;
end;

procedure TForm2.Button1Click(Sender: TObject);
var
  a: myThread;
  i: integer;
begin
  for i := 0 to 50 - 1 do
  begin
    with myThread.Create do
      tag := i;
  end;
  beep;
end;

[eoln]

Как проходит процедура Execute?
1) поработали с графикой, вернулись в процедуру
2) сохранили файл, вернулись в процедуру
3) удалили поток, вернулись в процедуру (а куда это мы вернулись? мы же удалили сами себя? )) ). Вот тут и утечка, нельзя самого себя изнутри удалять таким способом. Можно попросить кого-нибудь удалить или убери свой деструктор, а в процедуре Execute вместо Destroy пропиши

  bmp.Free;
  freeonterminate := true

[TwiX]

Спасибо
Спасибо
Спасибо
=)

Update:
Вот только весы тыкнуть не могу. С форумом траблы какие-то (или с оперой) сегодня начались. Не могу тыкнуть ни один значок, по типу жирного текста, весов... Как исправится - обязательно тыкну)