MEMBUAT FORM TRASPARAN

PERTAMA 1
*cari komponen Image1
*atur pada propertis nya cari trasparent jadikan true
KEDUA PADA FORM
*atur pada propertisnya cari
1.alphabend : true
2.transoarentcolor : true

setelah semua sudah di atur baru masukan scrif di bawah ini :
unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;
type
  TForm1 = class(TForm)
    Image1: TImage;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Edit5: TEdit;
    Edit7: TEdit;
    Edit8: TEdit;
    Edit9: TEdit;
    Edit10: TEdit;
    Edit11: TEdit;
    Edit12: TEdit;
    //procedure NonAktif;
    procedure FormCreate(Sender: TObject);
    procedure Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure FormActivate(Sender: TObject);
    procedure Edit7Click(Sender: TObject);
    procedure Edit7KeyPress(Sender: TObject; var Key: Char);
    procedure Edit5KeyPress(Sender: TObject; var Key: Char);
    procedure Edit8KeyPress(Sender: TObject; var Key: Char);
    procedure Edit9KeyPress(Sender: TObject; var Key: Char);
    procedure Edit10KeyPress(Sender: TObject; var Key: Char);
    procedure Edit11KeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Edit10KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13  then
edit11.SetFocus;
end;
procedure TForm1.Edit11KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13  then
edit12.SetFocus;
end;
procedure TForm1.Edit5KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13  then
edit7.SetFocus;
end;
procedure TForm1.Edit7Click(Sender: TObject);
begin
edit7.Text:=' '
end;
procedure TForm1.Edit7KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13  then
edit8.SetFocus;
end;
procedure TForm1.Edit8KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13  then
edit9.SetFocus;
end;
procedure TForm1.Edit9KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13  then
edit10.SetFocus;
end;
procedure TForm1.FormActivate(Sender: TObject);
begin
form1.SetFocus;
end;
procedure TForm1.FormCreate(Sender: TObject);
 var appID:THandle;
begin
appID:=CreateMutexA(nil, false, PChar('my_app_ID'));
if (appID<>0) and (GetLastError = ERROR_ALREADY_EXISTS ) then begin
  ShowMessage('Tidak Dapat Menjalankan Aplikasi Ini 2x, Silahkan Tutup Aplikasi Yang Sudah Berjalan Terlebih Dahulu.');
  Halt;
end;
 //NonAktif;
 TransparentColorValue:=image1.Canvas.Pixels [0,0];
end;
procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
ReleaseCapture;
Perform(WM_SYSCOMMAND,$F012,0);
end;
end.

selamat mencoba gan semoga berhasil jangan lupa gan beri komentar ok  :-)