procedure TfmUploader.btUploadClick(Sender: TObject);   
begin   
   if clUploader1.IsBusy then Exit;   
 
   clUploader1.LocalFile := 'Project1.dpr';   
   clUploader1.UserName := 'test';   
   clUploader1.Password := 'test';   
   clUploader1.URL := 
        'http://www.clevercomponents.com/test/Project1.dpr';   
   clUploader1.RequestMethod := 'PUT';   
   clUploader1.Start();   
end;