#pas
function THIJanFX.GetSrc(_Data:TData;needDest:boolean):boolean;
begin
 Result := false;
 dt1 := ReadData(_Data,_data_Bitmap,nil);
 if _IsBitmap(dt1) then
  begin
   bmp := ToBitmap(dt1);
   bmp.PixelFormat:=pf24bit;// <--- This 
   src := NewBitmap(0,0);
   src.Assign(bmp);
   if needDest then
    begin
     dst := NewBitmap(0,0);
     dst.Assign(src);
    end;
   if not src.Empty then Result := true;
  end;
 if not Result then _hi_OnEvent(_event_onError,1);
end;

function THIJanFX.GetSrc(_Data,_Data2:TData;needDest:boolean):boolean;
begin
 Result := false;
 dt1 := ReadData(_Data,_data_Bitmap,nil);
 dt2 := ReadData(_Data,_data_Bitmap2,nil);
 if _IsBitmap(dt1) and _IsBitmap(dt2) then
  begin
   bmp := ToBitmap(dt1);
   bmp.PixelFormat:=pf24bit;// <--- This 
   src := NewBitmap(0,0);
   src.Assign(bmp);
   bmp := ToBitmap(dt2);
   bmp.PixelFormat:=pf24bit;// <--- and This 
   src2 := NewBitmap(0,0);
   src2.Assign(bmp);
   if needDest then
    begin
     dst := NewBitmap(0,0);
     dst.Assign(src);
    end;
   if (not src.Empty) and (not src2.Empty) then Result := true;
  end;
 if not Result then _hi_OnEvent(_event_onError,2);
end;