[M.A.D.M.A.N.]

Код:

procedure onclosequery(sender:tobject;canclose:boolean);
begin
  self.alphablend:=true;
  while self.alphablendvalue>0 do
    self.alphablendvalue:=self.alphablendvalue-5;
end;