Please, how store TDirectDrawSurface as picture to TDIB ?

like
Procedure XY(Source:TDirectDrawSurface)
begin
...
Source...SaveToDIB(FilenameOfDIB)
end;

its posible ?