frmA8310E1 의 유닛 추가 하시고 이렇게 해보세요.

procedure TfrmSn.FormShow(Sender: TObject);
begin
   application.MessageBox('1','확인',Mb_ok);
   application.MessageBox('2','확인',Mb_ok);
   recString1 := frmA8310E1.Edtsn.Text ;
   edit2.Text := recString1;
end;

문제는....

procedure TfrmSn.FormShow(Sender: TObject);
begin
   application.MessageBox('1','확인',Mb_ok);
   application.MessageBox('2','확인',Mb_ok);
   recString1 := frmA8310E1.Edtsn.Text ;
   edit2.Text := recString1;
end;

에서........


   application.MessageBox('1','확인',Mb_ok);
   application.MessageBox('2','확인',Mb_ok);

조차 실행이 되지 않는다는 겁니다....

그러니 그 이후 코드는 말할것도 없이 실행이 되지 않는거죠.......



--------------------------------------------------------

소스 참고 하세요.
폼 2개 만들어서 각각 Edit Box  하나씩 올리고, 버튼 올려서 확인 해보세요..
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

uses Unit2;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
        Form2 := TForm2.Create(Self) ;
   try
           Form2.ShowModal ;
   finally
      Form2.Free ;
   end;
end;

end.
----------------
unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm2 = class(TForm)
    Edit1: TEdit;
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    recString1 : String ;
  end;

var
  Form2: TForm2;

implementation

uses Unit1;

{$R *.dfm}

procedure TForm2.FormShow(Sender: TObject);
begin
        application.MessageBox('1','확인',Mb_ok);
   application.MessageBox('2','확인',Mb_ok);
   recString1 := Form1.Edit1.Text ;
   Edit1.Text := recString1;

end;

end.
----------