请教，以下这段为什么加了循环就会当机？？？？？？？？？

Question

unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls ,winsock;type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Button1: TButton;
    Memo1: TMemo;
    Edit2: TEdit;
    Edit3: TEdit;
    Label1: TLabel;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;function ToUnicode(str: string;dest:PWidechar):integer;
function NetMessageBufferSend(servername:PWideChar;
                              MsgName:PWideChar;
                              FromName:PWideChar;
                              Buf:PWideChar;
                              var BufLen:integer):integer;cdecl;
var
  Form1: TForm1;implementation{$R *.dfm} function NetMessageBufferSend;external 'netapi32.dll' name 'NetMessageBufferSend';function ToUnicode(str: string;dest:PWidechar):integer;
var len:integer;
begin
  StringtoWidechar(str,dest,len);
  result:=len;
end;
function SendMsg(ToStr,FromStr,Msg:string):integer;
var
  ToName:array [0..64] of WideChar;
  WMsgText:array [0..1000] of WideChar;
  MsgLen,i:integer;
begin
  for i:=0 to 64 do ToName[i]:=#0;//NULL
  ToUnicode(ToStr,ToName);
  for i:=0 to 1000 do WMsgText[i]:=#0;//NULL
  ToUnicode(Msg,WMsgText);
  Result:=NetMessageBufferSend(nil,ToName,nil,@WMsgText,MsgLen)
end;procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;begin
  try
  for i:=strtoint(edit2.Text) to strtoint(edit3.Text) do       //就是这个地方
  begin
    SendMsg(pchar(Edit1.text+inttostr(i)),'jason',Memo1.text);
  end;
  except
    Exit;
  end;
end;end.

Answer 1

SendMsg要等待發送完再發送下一條, 要不然就會出現你說的當機!!

Answer 2

原因是这样的：
　　SendMsg　之后，系统要处理消息，而你的程序没有给系统处理消息的机会。解决：  try
  for i:=strtoint(edit2.Text) to strtoint(edit3.Text) do       //就是这个地方
  begin
    SendMsg(pchar(Edit1.text+inttostr(i)),'jason',Memo1.text);
    
    //在这里
    Application.ProcessMessages;
  end;
  except
    Exit;
  end;