Не ставиться прозрачность формы

[Лукманов Александр]

Уважаемые Модераторы, эта тема немного отлична от этой (её можно закрыть, а лучше удалить)


Создаётся динамическая форма (parent=form1), на которой расположена Image. Делаю Image и myform прозрачными. Но прозрачной остаётся только Image.
myform почему то не прозрачная. как быть?

f: TForm;

procedure TForm1.FormCreate(Sender: TObject);
var i: Cardinal;
begin
  f:=TForm.Create(form1);
  f.Parent:=Form1;
  f.Show;

      i:=GetWindowLong(f.Handle,GWL_STYLE);
      i:=i and not WS_CAPTION;
    if SetWindowLong(f.Handle,GWL_STYLE,i)=0 then RaiseLastWin32Error;
   Image1.Parent:=f;
   Image1.Transparent:=true;
   Image1.Align:=alClient;
   //f.TransparentColor:=true; - не знаю надо это или нет
   f.AlphaBlend:=True;
   f.AlphaBlendValue:=0;

    end;