1   
2   uses
3   shellapi;
4   
5   procedure TForm1.Button1Click(Sender: TObject);
6   var
7    em_subject, em_body, em_mail : string;
8   
9   begin
10   em_subject := 'Test Message';
11   em_body := 'Hello this is a test Message from Shell Execute Command to Open the 
12  Default Mail Wndow'
13  
14   em_mail := 'mailto:jdhiraj@rediffmail.com?subject=' +
15  	 em_subject + '&body=' + em_body ;
16  
17   ShellExecute(Handle,'open',
18  	 PChar(em_mail), nil, nil, SW_SHOWNORMAL);
19  end;