为什么ftp前,无法改变label.caption的值?

Question

代码如下:procedure TForm1.Button2Click(Sender: TObject);
begin
   label1.Caption:='开始上传';
   idftp1.Host:='192.168.148.104';
   idftp1.Port:=21;
   idftp1.Username:='test';
   idftp1.Password :='1234';
   myftp('e:\asp\file.asp','file1.asp',2);//自定义的一个ftp过程
end;程序运行后,文件已经成功上传,但是label1的caption却并没有变为'开始上传',如果取消掉后面的myftp('e:\asp\file.asp','file1.asp',2)则可以显示,但是myftp过程中并没有任何关于label1.caption的操作procedure TForm1.myftp(s:string;m:string;mtype:integer);
begin
idftp1.connect;
if idFTP1.Connected then
 begin
  case mtype of
  1:
   begin
    ProgressBar1.Max:=idftp1.Size(s);
    idftp1.Get(s,m,true);
   end;
  2:
   begin
    ProgressBar1.Max:=filesizebyname(s);
    idftp1.Put(s,m,true);
   end;
  end;
 idftp1.Disconnect;
 end
 else
 idftp1.Disconnect;
end;

Answer 1

label1.Caption:='开始上传';
self.update;