Komisch
Sonst guck dir mal einfach die Funktion nextpic() aus meinem Projekt an:
Code:
//---------------------------------------------------------------------------
void __fastcall TImgViewerForm::nextPic()
{
if (Files->ItemIndex == Files->Count-1) {
Files->ItemIndex = 0;
} else {
Files->ItemIndex = Files->ItemIndex+1;
}
Image->Picture->LoadFromFile(Files->Items->Strings[Files->ItemIndex]);
PictureName->Caption = Files->Directory +"\\"+ Files->Items->Strings[Files->ItemIndex];
}
Files ist bei mir eine TFileListBox.
So funktioniert es zumindest bei mir.
Sonst kannst du mir ja wenn du willst dein Projekt mal per PN zuschicken.
Ich würde mir das mdann mal angucken.