[Страдалецъ]

Для подгона изображения используйте свойство Proportional и Strech.
Количество картинок в каталоге можно узнать через Length(Files)
Если результат равен 0 значит картинок нет и кнопку отвечающую за переход к следующей картинке можно заблокировать.
Выглядит так:

Код:

procedure TForm1.Button2Click(Sender: TObject);
var
 fs: TSearchRec;
 x: string;
begin
 x:= Edit1.Text+'*.*' ;
 SetLength(Files, 0);
 Index := -1;
 if FindFirst(x, faAnyFile, fs) = 0
 then repeat
      if (ExtractFileExt(fs.Name) = '.bmp') or (ExtractFileExt(fs.Name) = '.jpg')
      then begin
           SetLength(Files, Length(Files)+1);
           Files[High(Files)] := Edit1.Text + fs.Name;
           end;
      until FindNext(fs)<>0;
 FindClose(fs);
 Button1.Enabled := Length(Files) > 0;
end;