[[duilioisola]]

En principio es la inversa de que lo que te han contestado para cargar.

Código Delphi [-]
  img := Tbitmap.Create(Trunc(Firma.Width), Trunc(Firma.Height));
  try
    img.Canvas.BeginScene;
    try
      firma.PaintTo(img.Canvas, firma.LocalRect);
    finally
      img.Canvas.EndScene;
    end;
    m := TmemoryStream.Create;
    try
      Dataset.close;     
      Dataset.open;     
      Dataset.CampoFIRMA.SavetoStream(m);
      img.LoadFromStream(m);
    finally
      FreeAndNil(m);
    end;
  finally
    FreeAndNil(img);
  end;