[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;
  picname := Copy(name, 1, Pos(' ', name)-1);
  GetDir(0, Root);
  pic := TJPEGImage.Create;
  try
    pic.LoadFromFile(Root+'\Img\'+picname+'.jpg');
    Image1.Picture.Graphic := pic
  finally
    pic.Free
  end
end;

И еще вопросец, не знаю как бы правильно сформулировать, но опишу как смогу)
Есть форма на ней ListView1 и там список
1 - Документ.txt
2 - Документ.txt
...
Вот когда я перелистываю их с помощью клавы, стрелками вверх\вниз то мне надо каждый раз это обработать, то есть если мы спустились с 1 на 2 то я получаю в сплывающем окне имя "2 - Документ.txt"