This works:
[pascal]// SD.ddpfPixelFormat.dwSize := SizeOf(SD.ddpfPixelFormat);
SD.ddpfPixelFormat.dwFlags := DDPF_RGB;
SD.ddpfPixelFormat.dwRGBBitCount := 32;
SD.ddpfPixelFormat.dwRBitMask := $FF0000;
SD.ddpfPixelFormat.dwGBitMask := $FF00;
SD.ddpfPixelFormat.dwBBitMask := $FF;
// SD.ddpfPixelFormat.dwRGBAlphaBitMask := $FF000000;[/pascal]