procedure TUploadPhotoDlg.UploadButtonClick(Sender: TObject); 
var
   TempRequest: TServerRequest;
begin
   ErrorLabel.Visible:=False;
   TempRequest:=MainForm.RequestQueue.GetNewRequest;
   with TempRequest do
      begin
      Method := rmPost;
      URL := 'Modules/FileUpload';
      Assign(UploadHTMLForm);
      OnStart:=UploadPhotoRequestStart;
      OnProgress:=UploadPhotoRequestProgress;
      OnComplete:=UploadPhotoRequestComplete;
      end;
   MainForm.RequestQueue.AddRequest(TempRequest);
end;