Probleme mit JPEGImage

[SirThornberry]

anstelle von
fs.Write(pchar(ts[i].Text1)^,len); kannst du auch
fs.Write(ts[i].Text1[1],len); scrheiben.

Wie ich das so sehe speichert er deine JPEG nicht in die datei weil du
fs.Write(ts[i].Vorschau,sizeof(ts[i].Vorschau)); aufrufst und
sizeof(ts[i].Vorschau) 4 ist da Vorschau ein TJPEGImage ist und somit nur ein Pointer

du solltest das ganze so machen
ts[i].Vorschau.SaveToStream(fs);