Form Transparant

procedure TForm2.FormCreate(Sender: TObject);
begin
TrackBar1.Max := 255 ;
TrackBar1.Position := 255;
end;

procedure TForm2.TrackBar1Change(Sender: TObject);
begin
Form2.AlphaBlend := true;
Form2.AlphaBlendValue := TrackBar1.Position ;
end;