Insertar en un ClientDataSet una imagen Bitmap

[[David]]

Hola

Creo una imagen bitmap por código y además tengo un ClientDataSet , creado en memoria .

La idea es la siguiente , guardar el bitmap en el clientDataSet en memoria.

el código empezaria más o menos así :

Código Delphi [-]

procedure TForm1.Button1Click(Sender: TObject);
var
 bmp: TBitmap;
 miClientDataSet : TClientDataSet;
begin

  // Creo el clientDataSet en Memoria
  miClientDataSet :=  TClientDataset.Create(nil);
  miClientDataSet.FieldDefs.Add('IMAGEN', ftBlob, 0, False);

  miClientDataSet.CreateDataSet;
  miClientDataSet.Open;

  bmp := TBitmap.Create;
  bmp.Width := 100; 
  bmp.Height := 100;
  bmp.Canvas.lock;
  //luego le asigno la imagen al bmp
  bmp.Canvas.unlock;

  // Ahora me gustaria hacer algo así
  miClientDataSet.Edit;
  miClientDataSet.FieldByName('IMAGEN').As.¿?.. := ¿? ;
  miClientDataSet.post;

end;

El caso es que no sé como insertar la imagen en el clientDataSet , por que no existe AsBlob , y luego no se que asignarle , si bmp , bmp.Canvas..., etc....

Un saludo