Сбои во время работы программы Slid Show

[ArtGrek]

прога работает так:
идет поочередное отображение картинок из папки
Timer1.Interval := 1; // для теста

procedure TForm3.Timer1Timer(Sender: TObject);
begin
  Timer1.Enabled := False; // отключаю отшет времени
  inc(ShowN); // номер картинки
  if ShowN > IndexN then ShowN := 0;
  Timer1.Interval := Images[ShowN].SpinEdit1.Value * 1000; // на сколько задержица картинка
  PicShow1.Style := Images[ShowN].ComboBox1.ItemIndex + 1; // с каким ефектом будет следуюшии переход
  PicShow1.Picture.LoadFromFile(Path + '\Images\' +IntToStr(ShowN) + '.bmp'); // загрузка следуюшего перехода
  PicShow1.Execute; // переход к новои картинке с новым ефектом
  Application.ProcessMessages;
  Timer1.Enabled := True; // начинаю отшет времени
end;

Ошибка!
происходит неизвестно когда, бывало через 5 минут после запуска, бывало и через час,
поетому на практике еше не скоро поиму, вынуждин просить ва помоч
подскажите в связи с чем ошибка?

[ArtGrek]

вот последнии скринн

а вот сшлка на компонент, остальное все родное
http://programmersforum.ru/showthread.php?t=139637

Добавлено
если нет идеи, подскажите как лучше зделать лог для ошибок, что б понять что не так

[ArtGrek]

вот еше ошибки полученые во время работы
люди помогите, чем нибудь, хот какие нибудь идеии

[Человек_Борща]

Подключи MadExcept и быстро поймаешь свой баг!!

[ArtGrek]

не понял, а подсказать конкретнее?

[ArtGrek]

вижу идеи никаких нет, подскажите, каку переменую заносить в лог что б поимать ошибку на понятном языке

[AlDelta]

1. Что происходит в:

  PicShow1.Execute; // переход к новои картинке с новым ефектом

2. Пока код OnTimer не выполнится, таймер не тикнет. Если код выполнится за время меньшее чем в Interval - таймер подождет оставшееся вряму и уже потом тикнет:
Timer1.Enabled := False/True; <----- нет нужды

[ArtGrek]

1. Что происходит в:
Код:

PicShow1.Execute; // переход к новои картинке с новым ефектом

ета команда вызывает сам переход, тоесть если стоит изображение 1, после загрузки изображения 2 оно не отобразица пока не произоидет Execute, типа Repaint

[ArtGrek]

1. Что происходит в:
Код:

PicShow1.Execute; // переход к новои картинке с новым ефектом

немного ошибался, так вызываеца вот ета последовательность событии

Change
Start
ConstrainedResize
BeforeNewFrame
AfterNewFrame
Progress
... // около 20 раз
BeforeNewFrame
AfterNewFrame
Progress
Complete
Stop

собствено и ошибка была потому что таимер тикал пока ето все происходило, и тикал быстрее