[pascal]var
DIB: TDIB;
Source: TDirectDrawSurface;
...
DIB.Assign(Source);
...[/pascal]