[Amilman]

Простите спать очень хотелось забыл написать (
Код для самой формы чтобы по рисунку форма пролучалась

Код:

procedure Tfrmprinc2.FormCreate(Sender: TObject);
var
  regn, tmpRegn: integer; // регион окна и временный регион
  x, y: integer; // координаты пикселя
  nullClr: TColor; // «прозрачный цвет»
begin
  nullClr := image1.picture.Bitmap.Canvas.Pixels[0, 0];
  // Image1 это картинка по которой создается форма окна
  regn := CreateRectRgn(0, 0, image1.picture.Graphic.Width,
    image1.picture.Graphic.Height);
  for x := 1 to image1.picture.Graphic.Width do
    for y := 1 to image1.picture.Graphic.Height do
      if image1.picture.Bitmap.Canvas.Pixels[x - 1, y - 1] = nullClr then
      begin
        tmpRegn := CreateRectRgn(x - 1, y - 1, x, y);
        CombineRgn(regn, regn, tmpRegn, RGN_DIFF);
        DeleteObject(tmpRegn);
      end;
  SetWindowRgn(frmprinc2.handle, regn, true);
end;

А вот код кнопки

Код:

procedure Tfrmprinc2.AdvGlowButton1Click(Sender: TObject);
begin
keybd_event(vk_left,0, 0, 0);
keybd_event(vk_left,0, KEYEVENTF_KEYUP, 0);
end;

С кнопочками разобрался искользовал код такого вида

Код:

if (bola.y < 29)and(area[bola.x,bola.y+1] <> 2) then
        bola.y := bola.y+1;