[Drozh]

Код:

var
  Style: DWORD;
  Wnd: HWND;
begin
  Wnd := FindWindow(nil, 'Form2'); // ищем окно

   if Wnd <> 0 then // если нашли...
   begin
    Style := GetWindowLong(Wnd, GWL_STYLE); // берем спсок стилей
    Style := Style and not WS_DISABLED; // убираем ненужный

    SetWindowLong(Wnd, GWL_STYLE, Style); // устанавливаем обновленный
                                          // стиль
    InvalidateRect(0, nil, TRUE); // перерисовываем все окна
   end;
end;