read stream error

jeg bruger denne kode til visning af forskellige billedformater, men når man efter et stykke tid, har klikket sig igennem f.eks. *.bmp billeder kommer der en meddelse\"read error stream\" har kigget i hjælp,men det har tilsynladende ikke noget med dette problem at gøre.

var
  FileExt: string[4];
begin
FileExt := AnsiUpperCase(ExtractFileExt(FileListbox1.FileName));
if (FileExt = \'.BMP\') or (FileExt = \'.WMF\') or (FileExt =\'.JPG\') or
(FileExt =\'.EMF\')or (FileExt = \'.GIF\')or (FileExt = \'.ICO\')or (FileExt = \'.JPEG\') then
begin
Image1.Picture.LoadFromFile(FileListBox1.FileName);
if (FileExt = \'.BMP\')or (FileExt =\'.EMF\')or (FileExt =\'.WMF\')or (FileExt =\'.JPG\')
or(FileExt = \'.GIF\')or (FileExt =\'.ICO\')or (FileExt =\'.JPEG\') then
begin
Form2.Image1.Picture := Image1.Picture;
Form2.Caption := Caption;
end
else
Form2.Image1.Picture.MetaFile := Image1.Picture.MetaFile;
end;
end;