Проблема с загрузкой в Image

[Panik666]

подскажите.
Есть две папки в одной хранятся изображения маленького размера они загружаюстя в Image2.3.4.5,в другой большого размера они грузятся в Image1.
Сам процесс происходит так сначало 4 изображения из папки с маленькими фото загружаются в Image2.3.4.5.
Есть 2 кнопки вниз и вверх т.е после нажатия кнопки вниз изображения из Image2.3.4.5 изменяются на другие из этой же папки.После нажатия Вверх проиходит возврат на те изображения,которые были до нажатия кнопки вниз.
После нажатия на любой Image(2.3.4.5) изображение которое было в нем загружается в Image1,только из папки с большими фото.
Приложил фото формы как это все выглядит подскажите как это сделать пжл

[Rin]

Книга "Никита Культин :<основы программирования в turbo Delphi>"
с 84 по 89 и с 98 по 103 стр объяснение проги.
код вот:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, ExtCtrls,
  FileCtrl,
  Jpeg;

type
  TForm1 = class(TForm)
    Panel1: TPanel;
    Image1: TImage;
    SpeedButton2: TSpeedButton;
    SpeedButton1: TSpeedButton;
    SpeedButton3: TSpeedButton;
    procedure FormCreate(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
  private
    aPath: string; // каталог, который выбрал пользователь
    aSearchRec : TSearchRec; // информация о файле
    Pictures : TStringList;  // список иллюстраций
    n: integer; // номер иллюстрации, отображаемой в данный момет

  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

// конструктор формы
procedure TForm1.FormCreate(Sender: TObject);
begin
  Pictures := TStringList.Create;
  SpeedButton2.Enabled := False;
  SpeedButton3.Enabled := False;
end;

// щелчок на кнопке "Папка"
procedure TForm1.SpeedButton1Click(Sender: TObject);
var
  r: integer;
begin
  if SelectDirectory('Выберите каталог', '',aPath) then
  begin
    aPath := aPath + '\';
    Form1.Caption := 'Прсмотр иллюстраций - ' + aPath;

    // сформировать список иллюстраций
    r := FindFirst(aPath+'*.jpg',faAnyFile,aSearchRec);
    if r = 0 then
      begin
        // в указанном каталоге есть jpg-файл
        Pictures.Clear; // очистить список иллюстраций
        Pictures.Add(aSearchRec.Name); // добавить имя файла в список иллюстраций

      end;

    // получить имена остальных jpg-файлов
    repeat
      r := FindNext(aSearchRec); // получить имя следующего jpg-файла
      if r = 0 then
          Pictures.Add(aSearchRec.Name);
    until ( r <> 0);

    if Pictures.Count > 1 then
        SpeedButton2.Enabled := True;

    // отобразить иллюстрацию
     n := 0; // номер отображаемой иллюстрации
    try
       Form1.Image1.Picture.LoadFromFile(aPath + Pictures[n]);
       except on EInvalidGraphic do Form1.Image1.Picture.Graphic := nil;
    end;
    if Pictures.Count = 1 then
        SpeedButton2.Enabled := False;

  end;
end;

// вывод следующей картинки
procedure TForm1.SpeedButton2Click(Sender: TObject);
begin
   // вывести картинку
   n := n+1;
   try
       Form1.Image1.Picture.LoadFromFile(aPath + Pictures[n]);
       except on EInvalidGraphic do Form1.Image1.Picture.Graphic := nil;
   end;

   if n = Pictures.Count-1 then
      SpeedButton2.Enabled := False;

   // если кнопка "Предыдущая" не доступна,
   // сделать ее доступной
   if (n > 0 ) and SpeedButton3.Enabled = False then
        SpeedButton3.Enabled := True;

end;

// вывод предыдущей картинки
procedure TForm1.SpeedButton3Click(Sender: TObject);
begin
    // вывести картинку
   n := n-1;
   try
       Form1.Image1.Picture.LoadFromFile(aPath + Pictures[n]);
       except on EInvalidGraphic do Form1.Image1.Picture.Graphic := nil;
   end;

   if n = 0 then
      SpeedButton3.Enabled := False;

   // если кнопка "Следующая" не доступна,
   // сделать ее доступной
   if (n < Pictures.Count) and SpeedButton2.Enabled = False then
        SpeedButton2.Enabled := True;
end;

end.

здесь нужно немного подправить код , но это за скелет более чем сойдёт=)