unit CompTest;

interface
type
  TLoginEvent = procedure(Sender: TObject; Username, Password: string) of object;

implementation

end.