[scroyler]

Всех с наступающим!!!

Здравствуйте при написании кода произошла проблема.
Я сохраняю картинки в листбокс и оттуда их открываю на форме.
код такой:

1.Загрузка изображения (также сохранение):

Код:

procedure TForm5.sButton1Click(Sender: TObject);
var FileName:string; Path : String;
begin
if OpenPictureDialog1.Execute then
 Image1.Picture.LoadFromFile( OpenPictureDialog1.FileName) ;
 ListBox1.Items.Add(OpenPictureDialog1.FileName) ;
 Listbox1.Items.SaveToFile('IMAGES') ;
end;

2.Открываю в Image:

Код:

procedure TForm5.ListBox1Click(Sender: TObject);
var FileName:string; Path : String;
begin
 FileName:=Path+ListBox1.Items[ListBox1.ItemIndex] ;
Image1.Picture.LoadFromFile(FileName) ;
end;

3.Подгрузка изображений в список:

Код:

procedure TForm5.FormCreate(Sender: TObject);
var FileName:string;
 Path : String;
 i:integer;
begin
Listbox1.Items.LoadFromFile('IMAGES') ;
end;

Все хорошо и отлично,но только почему то сохраняет список путей картинок на рабочий стол, а подгружает из папки с программой,а там не создается...
В чем проблема?