FileListBox

[SaFu]

Habe denn Code soweit angepasst bekomme aber Trotzdem noch Fehler

Delphi-Quellcode:

procedure TForm5.FormCreate(Sender: TObject);
var i :integer;
begin
    n:= 2000; // Strart interval des Timers

    for i:=0 to ComponentCount-1 do // XP Anzeige
    if Components[i] is TPanel then (Components[i] as TPanel).ParentBackground:= False;

    FileListBox2.Directory:= ExtractFilePath(ParamStr(0))+'\Dokumente nur RTF\';

    Label5.Caption:= 'LCD Anzeige der Dokumente'+#10+'Ein oder Ausschalten';
end;


{Drucker auswählen}

procedure TForm5.Timer1Timer(Sender: TObject);
var a,dokus :string;
begin
     if FileListBox2.ItemIndex+1 <> FileListBox2.Items.Count then
       begin
        a:= FileListBox2.Items[FileListBox2.ItemIndex+1]; // hochzählen der datein
        FileListBox2.Filename:= a;

     if (dokus = '.rtf') then
          begin
            Richedit1.PlainText:= False;
            Richedit1.Lines.LoadFromFile(ExtractFilePath(ParamStr(0))+'Dokumente nur RTF\'+FileListBox2.FileName);
           end;
         end
     else
     begin
         a:= FileListBox2.Items[0];
         FileListBox2.Filename:= a;
      end;
end;

procedure TForm5.FileListBox2Change(Sender: TObject);
var  dokus :string;
begin
  dokus:= LowerCase(ExtractFileExt(FileListBox2.Filename));
    if (dokus = '.rtf') then
      begin
        RichEdit1.PlainText := False;
        RichEdit1.Lines.LoadFromFile(FileListBox2.FileName);
      end;

    if (dokus = '.rtf') then
      begin
       Form9.RichEdit1.PlainText := False;
       Form9.Richedit1.Lines.LoadFromFile(FileListBox2.FileName);
      end;
end;

procedure TForm5.Button1Click(Sender: TObject);
begin
Timer1.Enabled:= True;
end;

procedure TForm5.Button3Click(Sender: TObject);
begin
 Timer1.Enabled:= False;
end;

Delphi-Quellcode:

procedure TForm4.FormShow(Sender: TObject);
var i :integer;
begin
  n:= 2000; // Strart interval des Timers

  for i:=0 to ComponentCount-1 do     // XP Anzeige
  if Components[i] is TPanel then (Components[i] as TPanel).ParentBackground:= False;

  FileListBox1.Directory:= ExtractFilePath(ParamStr(0))+'\Bilder\';

  Label5.Caption:= 'LCD Anzeige der Bilder'+#10+'Ein oder Ausschalten';
  Image1.Picture.RegisterFileFormat('jpg', 'Jpeg', TjpegImage);
end;


{Ordner Anzeige}
procedure TForm4.FileListBox1Change(Sender: TObject);
var  bild : string;
begin
  bild:= LowerCase(ExtractFileExt(FileListBox1.Filename));
    if (bild = '.jpg') then  // Laden von JPG
       begin
         Image1.Picture.LoadFromFile(FileListBox1.FileName);
         Form3.Image1.Picture.Assign(Image1.Picture);
       end;
end;

{Zeit des Durchlaufs}
procedure TForm4.Timer1Timer(Sender: TObject);
var   bild,i : string;
begin
     if FileListBox1.ItemIndex+1 <> FileListBox1.Items.Count then
       begin
         i:= FileListBox1.Items[FileListBox1.Itemindex+1]; // hochzählen des Index
         FileListBox1.Filename:= i;

          if (bild = '.jpg') then
             begin
              Image1.Picture.LoadFromFile(ExtractFilePath(ParamStr(0))+'Bilder\'+FileListBox1.FileName);
              Form3.Image1.Picture.Assign(Image1.Picture);
             end;
         end
      else
        begin
         i:= FileListBox1.Items[0];
         FileListBox1.Filename:= i;
        end;
end;

{Durchlaufs anhalten}
procedure TForm4.Button3Click(Sender: TObject);
begin
  Timer1.Enabled:= False;
end;

{Durschlaufstarten}
procedure TForm4.Button2Click(Sender: TObject);
begin
  Timer1.Enabled:= True;
end;

Es ist eigenlich immer noch der gleiche Fehler binn am verzweif eln