Маленькая программа на Delphi

[Vihacer]

Здравствуйте, уважаемые участники форума!

Прошу помочь мне в составлении программы на Delphi:
1. При перемещении указателя мыши по форме она должна плавно менять свой цвет от значений в углах: лев.верхн. - черный, лев.нижн. - голубой, прав.верхн. - красный, прав.нижн. - белый. Нажатием Ctrl-Alt-C этот режим можно включать-выключать.
2. Двойной щелчок мыши или Alt-X или F10 закрывают форму (с запросом на разрешение).
3. Нажатие клавиш со стрелками сдвигает форму (в границах экрана)
4. Щелчок правой кнопки мыши сжимает форму на 5 пикселей со всех сторон. Щелчок правой кнопки мыши с нажатой клавишей Shift увеличивает форму на 5 пикселей во все стороны.

Надеюсь на вашу помощь новичку.
С искренними благодарностями

[Somebody]

Сообщение от Vihacer

Надеюсь на вашу помощь новичку.

Главное - не надейся, что всё за тебя полностью и бесплатно напишут.

[BDA]

Изменение цвета формы:

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState;
  X, Y: Integer);
begin
  color := rgb(round(255 * X / ClientWidth), round(255 * Y / ClientHeight),
    round(255 * Y / ClientHeight));
end;

Замечание Somebody в силе

[Vihacer]

Сообщение от BDA

Изменение цвета формы:

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState;
  X, Y: Integer);
begin
  color := rgb(round(255 * X / ClientWidth), round(255 * Y / ClientHeight),
    round(255 * Y / ClientHeight));
end;

Замечание Somebody в силе

Не работает. <<Identifier not found 'rgb'>>

[Stilet]

Не работает

Ану показывай как написал.

[BDA]

Может в старой версии Delphi нет такой функции?
Допишите:

function RGB(r, g, b: Byte): DWORD;
begin
  Result := (r or (g shl 8) or (b shl 16));
end;