//구조체 선언 pas파일
unit kk_class;
interface
  type
    a_user = record
      cd_user:pchar;
  end;
implementation
end.

//login폼에서
uses kk_class;
var
  r_user:a_user;   //구조체 선언

//구조체에 값 지정
r_user.cd_user:= pchar('we1234');


//.dpr파일에서 login폼을 Close하고 Main폼을 띠웁니다.
Application.Initialize;
  try
    Application.CreateForm(Tlogin, login);
    login.ShowModal;
    if Login.CheckBox1.Checked  = False then begin
      Application.Terminate;
      exit;
    end;
  finally
    login.Free;
  end;
  Application.CreateForm(TMAIN, MAIN);
  Application.Run;

//Main폼에서 Login폼에서 구조체에 저장한 구조체 정보를
//참조할려고 하는데 어떻게 해야되는지요