函数中能不能调用函数(50分)

我做了一个程序，用一个函数/过程调用一个密码窗体，输入密码正确后按下确定键，再调出一个窗体，现在，窗体都能显示正常，但不能从最后的窗体中调出数据，请问高手，原因何在？

你要用一个全局变量来取得最后的窗体中的数据

祁先生：
我的意图是从第二个窗体中传输数据到第一个窗体中，但我打开第一个窗体，执行if Showmodal=mrOk then
之后，程序不再进行，百思不得其解，请回答。
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
Menus,SetForm, StdCtrls;
type
TForm1 = class(TForm)
MainMenu1: TMainMenu;
setting1: TMenuItem;
Button1: TButton;
Edit1: TEdit;
Edit2: TEdit;
procedure setting1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
i,j:Array [1..5]ofdo
uble;
S1Char;
SwordChar;
x,y:Array [1..5]ofdo
uble;
end;

var
Form1: TForm1;
implementation
//function Pass(PWordChar):Boolean;far;external'passdll/Passlib';
{$R *.DFM}
procedure TForm1.setting1Click(Sender: TObject);

begin
//SWord:=STrAlloc(40);
ReadSetting(s1,i,j);
end;

{function TForm1.Read(i,j:Array ofdo
uble):Boolean;
var
x,y:Array [1..5]ofdo
uble;
u:integer;
WarnningLevel,FaultLevel: Array [1..5]ofdo
uble;
begin
read:=true;
For u:=1 to 5do
x:=WarnningLevel;
y:=FaultLevel;
u:=0;
read:=False;
end;
}
procedure TForm1.FormCreate(Sender: TObject);
begin
with Form1do
if ShowMOdal=mrOk then
try
ReadSetting(s1,x,y);
SettingForm.Free;
finally
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
test1:double;
begin
test1:=i[1];
Edit1.Text:=FloatToStr(Test1);
end;

end.

代码不全!!

with Form1do
if ShowMOdal=mrOk then
try
ReadSetting(s1,x,y);
SettingForm.Free;
finally
end;
end;
应该执行第二个窗口的showmodal而不是第一个，你执行的是第一个窗口
（也就是它本身）当然没反应了

晕