procedure Lock( pDestRect: PRect; var SurfaceDesc: DDSurfaceDesc; Flags: Longint; hEvent: THandle );
Calls the interface Lock method to obtain a pointer to the surface memory. See IDirectDrawSurface3::Lock for more information. You don't need to initialize the SurfaceDesc.dwSize because it's set internally.
See also Unlock.