Form Splash Transparente

procedure TFormSplash.FormCreate(Sender: TObject);
var
  Imagem: TBitmap;
begin
  Self.BorderStyle := bsNone;
  Self.BorderIcons := [];
  Self.FormStyle := fsSplash;

  Imagem := TBitmap.Create;
  try
    ImageListFundoRecorte.GetBitmap(0, Imagem);
    ImageListFundoRecorte.GetBitmap(1, Image1.Picture.Bitmap);
    //Imagem.Monochrome := True; //Usar quando for carregar o TBitmap de uma arquivo.
    Self.Canvas.Draw(0, 0, Imagem);
    Imagem.Height := Self.Height;
    Imagem.Width := Self.Width;
    SetShape(Imagem);
  finally
    FreeAndNil(Imagem);
  end;
end;