Diashowbildwechsel

[TurboMartin]

Hi, Ich habe ein problem:
ich möchte bei einem Diashowprogramm den bildwechsel mit nem Timer zeitsteuer. Alles funktioniert, bis auf den bildwechsel.
den kapier ich nicht. ich möcht ein bild nach dem anderen aus ner filelistbox laden.
Hier der gesamte Code:

Code:

//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "image1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button1Click(TObject *Sender)
{
Panel1->Visible = false;
Timer1->Enabled = true;
Timer1->Interval = IntToStr(nextp)*1000;
Image1->Visible = true;
Form1->BorderStyle = bsNone;
Form1->WindowState = wsMaximized;
Image1->Height = Form1->ClientHeight;
Image1->Width = Form1->ClientWidth;
}
//---------------------------------------------------------------------------

void __fastcall TForm1::FormClick(TObject *Sender)
{
Panel2->Visible = true;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Timer2Timer(TObject *Sender)
{
Panel2->Visible = false;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Panel2Click(TObject *Sender)
{
Panel2->Visible = false;
Image1->Visible = false;
Panel1->Visible = true;
Timer1->Enabled = false;
Timer2->Enabled = false;
Form1->WindowState = wsNormal;
Form1->BorderStyle = bsSizeable;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Image1Click(TObject *Sender)
{
Panel2->Visible = true;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormResize(TObject *Sender)
{
Image1->Height = Form1->ClientHeight;
Image1->Width = Form1->ClientWidth;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::DirectoryListBox1Change(TObject *Sender)
{
FileListBox1->Directory = DirectoryListBox1->Directory;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::DriveComboBox1Change(TObject *Sender)
{
DirectoryListBox1->Drive = DriveComboBox1->Drive;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
//Hier das nächste Bild laden
}
//---------------------------------------------------------------------------

wie muss ich das jetzt machen?