Use UniMainModule... procedure TUniLoginForm1.UniButton1Click(Sender: TObject); begin   UniMainModule.AUserName := 'This User'; UniMainModule.AUserID := 777;   ModalResult:=mrOK;  // Login is valid so proceed to MainForm end;