Image als Tbyte umwandeln

[zeina]

Hallo,
ich habe ein Problem.
Ich habe ein Bilds aus Tmemorystream ,das ich gezeigt und gedreht habe.Ich will die gedrehetes Bild mit Orginales Bild umtauschen.
Ich versuche gedrehtes Bild in Temomerystream zu speichern und die altes löschen,aber ich könnte nicht (image1.picture.graphic)to Tbyte array wexchseln.

Delphi-Quellcode:

procedure TFormFoto.SpeichernClick(Sender: TObject);
var
lpTblFeature: TpBtrvDBTableData;
  lpTblGraph: TpBtrvDBTableData;
  lmstFoto  : TMemoryStream;
  laImage  : TaByte;
  lgrpImage: TGraphic;

begin
 lmstFoto:=Tmemorystream.Create;
 try
  Image1.Picture.Graphic.SaveToStream(lmstFoto);
  laImage:= GetBlob(RelData('GR'));
  lmstFoto.Position := 0;
  if lGetRecord(RelData('GR'), 1) then begin
     InitRelation('GR', false);
      PutSField('GR', 1, 'CP');
      PutIdField('GR', 2, 20);
       Searchrecord('GR', 1);
      // DeleteRecord('GR');
  end;
      PutSField('GR', 1, 'CP');
      PutIdField('GR', 2, 34);
      PutBlob ('GR',laImage);
      InsertRecord2('GR');
 finally
  lmstFoto.Free;
 end;
end;