Probleme mit JPEGImage

[Legolas]

Hallo SirThornberry,

das wars, Danke. Aber ich glaube meine ganze Idee funktioniert nicht so richtig, ich habe nicht das gefühl das das Bild in der Datei gespeichert wird.

Kann sich jemand bitte mal diesen Quellcode vornehmen?

Code:

type
  TForm1 = class(TForm)
    Image1: TImage;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Button1: TButton;
    Label1: TLabel;
    procedure Button1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

type
  Test = Record
    Text1: String;
    Text2: String;
    Text3: String;
    Vorschau: TJPEGImage;
  end;

  Tts = array of Test;

var
  Form1: TForm1;
  fs: TFileStream;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var len: LongInt;
    ts: Tts;
    i: Integer;
    JPEG: TJPEGImage;
begin
  SetLength(ts,2);
  ts[0].Text1:=Edit1.Text;
  ts[0].Text2:=Edit2.Text;
  ts[0].Text3:=Edit3.Text;

  ts[0].Vorschau:=TJPEGImage.Create;
  ts[0].Vorschau.Assign(Image1.Picture.Bitmap);

  label1.Caption:=IntToStr(sizeof(ts[0].Vorschau));
  fs:=TFileStream.Create('D:\test.adb',fmCreate);
  len:=Length(ts);
  fs.Write(len,sizeof(len));
  for i:=0 to Length(ts)-1 do
  begin
    Len:=Length(ts[i].Text1);
    fs.Write(len,sizeof(len));
    fs.Write(pchar(ts[i].Text1)^,len);
    Len:=Length(ts[i].Text2);
    fs.Write(len,sizeof(len));
    fs.Write(pchar(ts[i].Text2)^,len);
    Len:=Length(ts[i].Text3);
    fs.Write(len,sizeof(len));
    fs.Write(pchar(ts[i].Text3)^,len);
    fs.Write(ts[i].Vorschau,sizeof(ts[i].Vorschau));
  end;
end;

Fehler habe ich laut Delphi nicht mehr drin.