[mishqa35]

Проблема в этом коде:

Код:

procedure TForm1.ListView1Click(Sender: TObject);
var
  i: integer;
  pic: TJPEGImage;
  name, picname, Root: string;
begin
  i := ListView1.ItemIndex;
  if i < 0 then exit;
  name := ListView1.Items[i].Caption;
  Image1.Visible := false;
  Image1.Visible := true;
  //Image1.Canvas.FillRect(Image1.Canvas.ClipRect);
  //Image1.Picture := nil;
  //Image1.Canvas.Free;
  picname := Copy(name, 1, Pos(' ', name)-1);
  GetDir(0, Root);
  pic := TJPEGImage.Create;
  pic.LoadFromFile(Root+'\Img\'+picname+'.jpg');
  Image1.Proportional := true;
  Image1.Stretch := true;
  Image1.Canvas.Draw(0, 0, pic);
end;

а именно

Код:

Image1.Canvas.Draw(0, 0, pic);

если за комментировать строку то все норм, память не растет.
Помогите решить проблему..