....wie kann ich das denn an meine Source anpassen...
bei meinem beispiel hab ich ein TImage als Anzeige benutzt und SampleImage benannt.
fs := TFileStream.Create('C:\...\test.gif', fmOpenRead or fmSharedenyNone);
>> C:\...\test.gif << --- da muss logischerweise ein gültiger name rein also anpassen.
Ansonsten:
...Hänge doch mal das komplette Projet als ZIP an.
Grüße