Просмотр картинок по клику кнопки

[Александр 1988]

Вопрос в следующем. Имеем три картинки с именем отличающимся только порядковым номером в коренной папке в программой. Необходимо осуществить просмотр их последовательно при нажатии на кнопку. Не могу сообразить как к этому всему приплести цикл.

procedure TForm1.Button5Click(Sender: TObject);
var
s,s1:string;
i:integer;
begin
i:=i+1; \\это порядковый номер
while i<2
do
begin
s:='Привет'; \\ собственно имя файла
s1:='.jpg'; \\ отдельно вынес расширение файла
s:=s+inttostr(i)+s1;
image1.Picture.LoadFromFile(s);
end;
button5.Enabled:=false;
end;

файл 'Привет' сразу загружен на форму в объект Image, потом вывести файлы 'Привет1' и 'привет2'


В данном варианте совсем отчаялся и решил все делать на простых элементах. Прошу помощи, т.к. это необходимо для завершения курсового проекта

[type_Oleg]

Переменная i - локальная, она создается внутри процедуры-обработчика Button5Click, и чему она равна перед i:=i+1; - непонятно. Скорее всего 0, причем при каждом клике будет одно и то же.
Надо сделать её глобальной.

var
  Form1: TForm1;
   num:Byte;
// и т .д. 
procedure TForm1.FormCreate(Sender: TObject);
begin
 num:=1;
end;
// и т.д.
procedure TForm1.Button5Click(Sender: TObject);
 var s,s1:string;
begin
// загрузка файла
 if num<3 then Inc(num)else num:=1;  //  смена num

Это если файлы Привет1, Привет2, Привет3

А если Привет, Привет1, Привет2, то так

var
  Form1: TForm1;
   num:string;
// ....
procedure TForm1.FormCreate(Sender: TObject);
begin
 num:='';
end;
// ...
procedure TForm1.Button5Click(Sender: TObject);
var
 s:string;
begin
 s:='Привет'+num+'.jpg';
 if num='' then num:='1'
   else if num='1' then num:='2' else num:='';
 // ...

[Александр 1988]

Сообщение от type_Oleg

Переменная i - локальная, она создается внутри процедуры-обработчика Button5Click, и чему она равна перед i:=i+1; - непонятно. Скорее всего 0, причем при каждом клике будет одно и то же.
Надо сделать её глобальной.

var
  Form1: TForm1;
   num:Byte;
// и т .д. 
procedure TForm1.FormCreate(Sender: TObject);
begin
 num:=1;
end;
// и т.д.
procedure TForm1.Button5Click(Sender: TObject);
 var s,s1:string;
begin
// загрузка файла
 if num<3 then Inc(num)else num:=1;  //  смена num

Это если файлы Привет1, Привет2, Привет3

А если Привет, Привет1, Привет2, то так

var
  Form1: TForm1;
   num:string;
// ....
procedure TForm1.FormCreate(Sender: TObject);
begin
 num:='';
end;
// ...
procedure TForm1.Button5Click(Sender: TObject);
var
 s:string;
begin
 s:='Привет'+num+'.jpg';
 if num='' then num:='1'
   else if num='1' then num:='2' else num:='';
 // ...

Спасибо большое