Помгите с прозрачностью формы?

[SeЯgey]

хочу сделать программу в которой главное окно появлялось постепенно
и так же при закрытии исчезало
все получилось только одна проблема все компоненты(кнопки,поля текстоваые) на форме при появлении черные и только, когда форма появится прорисовываются
Как сделать, чтобы и форма и компонеты появлялись
при выключении все норально.
пример процедуры появления формы

procedure TForm1.FormCreate(Sender: TObject);
var
i:integer;
begin

form1.Show;
form1.Timer1.Enabled:=true;
for i:=1 to 255 do

form1.AlphaBlendValue:=i;


Timer1.Enabled:=false;
end;

[Aleksandr]

На закрытие можно использовать

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
AnimateWindow(Handle, 1000, AW_HIDE or AW_BLEND);
end;

[Kashp]

Можно вот так:

...
var
  Form1: TForm1;
  i: integer;

  implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
 i:=0;
 Timer1.Interval:=50;
 Form1.AlphaBlend:=true;
 Form1.AlphaBlendValue:=0;
 Timer1.Enabled:=true;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
 if i<>255 then
  begin
   Form1.AlphaBlendValue:=Form1.AlphaBlendValue+5;
   i:=i+5;
  end
  ELSE
   Timer1.Enabled:=false;
end;

end.

На закрытие аналогично.

[SeЯgey]

Спасибо!!!