type
  TfrmAppLogin = class(TForm)
     procedure aaa;
  private
     procedure bbbbb;
  public       
    procedure ccccc; 
  end;