function BmpToMem1(Bmp:TBitmap;var W,H:integer):pointer;
  var
    p1:pointer;
    y1:integer;
  begin
      if Bmp.PixelFormat<>pf24bit then
        raise exception.Create('Bad BMP format');
      Bmp.Canvas.Lock;
      try 
        W:=Bmp.Width;
        H:=Bmp.Height;
        GetMem(Result,3*W*H);
        p1:=Result;
        for y1:=0 to H-1 do
        begin
          Move(Bmp.ScanLine[y1]^,p1^,3*W);
          integer(p1):=NativeInt(p1)+3*W;
        end;
      finally
        Bmp.Canvas.Unlock;
      end;  
  end;