新手问题

unit Unit1;  
 interface 
 uses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, StdCtrls;  
 type  TForm1 = class(TForm)     
Button1: TButton;     
procedure Button1Click(Sender: TObject);    
 private    { Private declarations }  
public    { Public declarations }  
end;   
var  Form1: TForm1;   
implementation  
uses Unit2;  
 {$R *.dfm}  
 procedure TForm1.Button1Click(Sender: TObject); 
begin
//这里怎么调用Unit2里的函数？ 
form2.MyShow('I love you.');   //这一句是我写的
end;  
 end.
//----------------------------------
unit Unit2;   
interface  
uses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, StdCtrls;  
 type  TForm2 = class(TForm)     
private    { Private declarations }  
public    { Public declarations }  
   function  MyShow(dd:string);  //这一句
end;  
 var  Form2: TForm2;   
implementation  {$R *.dfm}   
function TForm2.MyShow(dd:string);
 begin
   showmessage(dd);
end;   
end.