Здравствуйте, Seyfred.

Не совсем корректный код.


Форма должна по цвету отличаться от цвета остальных контролов,для случая если цвет формы = clWhite
Должно быть так:

procedure TForm1.ButtonClick(Sender: TObject);
begin
if SetWindowLong(Handle, GWL_EXSTYLE, GetWindowLong(Handle, GWL_EXSTYLE) or WS_EX_LAYERED) = 0 then
   ShowMessage(SysErrorMessage(GetLastError));
if not SetLayeredWindowAttributes(Handle, ColorToRGB(clWhite), 255, 1) then
   ShowMessage(SysErrorMessage(GetLastError));
end;