[darkamerico]

GRACIAS ECFISA!!!

Es una real satisfacción comunicarles que al fin salio el código, aquí lo comparto con ustedes:

Código Delphi [-]
procedure TForm3.Inserta(Sender: TObject);
var
  nomArch: string;
  BlobFieldValue: TMemoryStream;
  bmp, BMPdestino:TBitmap;
  Rect: TRect;
begin
  if imgEnClipBoard = false then
    tab.PageIndex := 0
  else
  begin
    if Clipboard.HasFormat(CF_BITMAP) then
    begin
      BlobFieldValue := TMemoryStream.Create;
      try
        bmp:=TBitmap.Create;
        BMPdestino:=TBitmap.Create;
        try
          bmp.Assign(Clipboard);
          BMPdestino.Width := 100;
          BMPdestino.Height := 100;
          Rect:= TRect.Create(0, 0, 100, 100);
          BMPdestino.Canvas.StretchDraw(Rect, bmp);
          BMPdestino.SaveToStream(BlobFieldValue);
        finally
          bmp.Free;
          BMPdestino.Free;
        end;
        BlobFieldValue.Seek(0, soBeginning);
        dm.q_UPDFoto.Close;
        dm.q_UPDFoto.Params[0].LoadFromStream(BlobFieldValue, ftblob);
        dm.q_UPDFoto.ParamByName('IDPerx').AsInteger := StrToInt(txtID.Text);
        dm.q_UPDFoto.ExecSQL;
      finally
        BlobFieldValue.Free;
      end;
    end;
  end;
end;