[v1s2222]

Ну я бы делал так.

Код:

... создаю каритнку...
  imag.Tag := i; // где i - как раз разница между картинками (либо надо было делать массив картинок var a: array of TImage)
// то бишь i - просто переменная.
  inc(i); // i:=i+1;

Код:

  ...openLabel...
begin
  case TImage(Sender).Tag of
    1: ShellExecute(handle, 'open', '1', nil, nil, SW_SHOWNORMAL);
    2: ShellExecute(handle, 'open', '2', nil, nil, SW_SHOWNORMAL);
    3: ShellExecute(handle, 'open', '3', nil, nil, SW_SHOWNORMAL);
    else
      ShellExecute(handle, 'open', '4', nil, nil, SW_SHOWNORMAL);
  end;

Примерно как-то так.