用modem拨号，可是用这段程序老是没反应，为什么？？？(50分)

以下是调用的程序。
procedure TFrmDial.dFindExecute(Sender: TObject);
begin
if StatusBar1.Panels[0].Text ='' then
begin
RichEdit1.Lines.Add('没有选择任何站点');
exit;
end;
IsServer:=True;
if IsServer then
begin
RichEdit1.Lines.Add('查询' + StatusBar1.Panels[0].Text+'...');
FrmSend.SendAction(ExtractFilePath(Application.ExeName)+XMLPath,StatusBar1.Panels[0].Text);
TimeDelay(1000); //运行完这步，不知为什么就跑到timer2time程序去了
end;
end;

procedure TFrmSend.SendAction(action: String; sitename: String);
begin
edtPhoneNum.Text := GetSitePn(sitename);
EdFileName.Text:=action;
if not Connected then
begin
VaModem1.Dial(edtPhoneNum.Text);
Button4.Click;
end;
end;

procedure TFrmSend.Button4Click(Sender: TObject);
begin
VaModem1.Active := false;
VaXModem1.FileName := EdFileName.Text;
VaXModem1.Mode := tmUpload;
VaXModem1.Execute;
end;
VaXModem1是控件TVaXModem

怎么没人回答阿？？？在线等....