一个EDIT的问题。。。在线求救呀呀!!

                            
我在FORM1中放了个EDIT框。   
   然后我想指定一个PROCEDURE对EDIT框中的内容进行控制   
   可是我按下面的运行后EDIT框里面的内容不改的。。   
      
   小弟刚学DELPHI各位大大帮忙啦   
   unit   Unit1;   
      
   interface   
      
   uses   
         Windows,   Messages,   SysUtils,   Variants,   Classes,   Graphics,   Controls,   Forms,   
         Dialogs,   StdCtrls,   Mask,   DBCtrls,   DB,   DBTables;   
      
   type   
         TForm1   =   class(TForm)   
               Label1:   TLabel;   
               Edit1:   TEdit;   
               procedure   show(str:string);   
               procedure   done();   
         private   
               {   Private   declarations   }   
         public   
               {   Public   declarations   }   
         end;   
      
   var   
         Form1:   TForm1;   
      
   implementation   
      
   {$R   *.dfm}   
   procedure   tform1.show(str:string);   
   begin   
   edit1.Text   :=str;   
   end;   
      
   procedure   tform1.done   ();   
   begin   
   show('dsdf');   
   end;   
      
   end.