1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:

type dataset = record
                ueberschrift : string;
                inhalt : Tpicture;
                quellen : string;
                fragen : string;
               end;
...
...
...
for k:=1 to x do
         begin
          setlength(data,k);          
          clipboard.Clear;
          data[k-1].ueberschrift:=myexcel.range['A'+inttostr(K),'A'+inttostr(k)].value;
          myexcel.Range['B'+inttostr(K),'B'+inttostr(k)].Copy(Emptyparam);
          data[k-1].inhalt:=Tpicture.create;
          data[k-1].inhalt.assign(clipboard);
          data[k-1].quellen:=myexcel.Range['C'+inttostr(K),'C'+inttostr(k)].Value;
          data[k-1].fragen:=myexcel.Range['D'+inttostr(K),'D'+inttostr(k)].Value;
         end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:

 fs:=tfilestream.Create(dateiname,fmcreate);
 ms:=tmemorystream.Create;
 jpg:=TJpegImage.Create;
 bildstream:=Tmemorystream.Create;
 fs.WriteBuffer(x,sizeof(x));
 for i:=0 to x-1 do
  begin
   speicher.ueberschrift:=data[i].ueberschrift;
   speicher.quellen:=data[i].quellen;
   speicher.fragen:=data[i].fragen;
   jpg.Assign(<span style="color: red">data[i].inhalt.bitmap</span>);
   jpg.SaveToStream(ms);
   size:=ms.Size;
   fs.Write(size,4);
   ms.Position:=0;
   fs.CopyFrom(ms,size);
   ms.clear;
   bildstream.Clear;
   fs.WriteBuffer(speicher,sizeof(speicher));
  end;
   jpg.Free;
   ms.Free;
   fs.Free;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:

procedure TForm1.Image1Click(Sender: TObject);
var
  JPG: TJPEGImage;
  bmp: TBitmap;
begin
  Image1.Picture.Assign(Clipboard);
  Caption := Image1.Picture.Graphic.ClassName;

  bmp := TBitmap.Create;
  bmp.Width := Image1.Picture.Width;
  bmp.Height := Image1.Picture.Height;
  bmp.Canvas.Draw(0, 0, Image1.Picture.Graphic);

  JPG := TJPEGImage.Create;
  JPG.Assign(bmp);
  JPG.SaveToFile('C:\blub.jpg');
  JPG.Free;

  bmp.Free;
end;