procedure TMain.btSubmitClick(Sender: TObject);   
begin   
   clUploader1.HTTPRequest := clHttpRequest1;   
 
   clHttpRequest1.Clear();   
   clHttpRequest1.AddSubmitFile('fieldname', 'C:\MyFiles\Project1.dpr');   
 
   clUploader1.UseHTTPRequest := True;   
   clUploader1.URL := 'http://www.clevercomponents.com/'   
      + 'products/inetsuite/demos/serversubmitfile.asp';   
   clUploader1.Start(False);   
end;