[AlexSku]

Вот пример про альфа-канал формы. Но намного больше возможностей при подключении библиотеки DirectX.
Добавляете Form2, на неё Image1, в Image1 загружаете (Image1.Picture) картинку, напр. \Data\cus1.bmp.
Свойство Image1.Autosize=True.
Свойства Form2: AlphaBlend=True, AutoSize=True, BorderStyle=bsToolWindow, Visible=True.
На главную форму (Form1) добавляете компонент TrackBar1.
Свойства TrackBar1: Frequency=16, Max=255, Position=255. Обработчик OnChange (добавьте ссылку uses Unit2):

Код:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls;

type
  TForm1 = class(TForm)
    TrackBar1: TTrackBar;
    procedure TrackBar1Change(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

uses Unit2;

{$R *.dfm}

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

end.