зависание программы [решено]

  function mailerphp (Host,Username,Password,SMTPSecure,Port,mailFrom,mailTo,Subject,mailMessage: string ): string;
var
    slParam: TStringList;
    pass:string;
begin

    slParam := TStringList.Create;
    slParam.Add('Host='+Host);
    slParam.Add('Username='+Username);
    slParam.Add('Password='+Password);
    slParam.Add('SMTPSecure='+SMTPSecure);
    slParam.Add('Port='+Port);
    slParam.Add('setFrom='+mailFrom);
    slParam.Add('addAddress='+mailTo);
    slParam.Add('Subject='+Subject);
    slParam.Add('mmessage='+mailMessage);

    result:= HTTPPost('http://url/sendmail.php',slParam);
end

<?php
 
require 'mail/PHPMailerAutoload.php';
 
$vernii_shifr = $_REQUEST[pass];
$pol_shifr = '1230';// пороль страницы

If($vernii_shifr == $pol_shifr){
$mail = new PHPMailer;
$mail -> isSMTP();
$mail->SMTPDebug = 2;
$mail->Debugoutput = 'html'; 
$mail ->Host = $_REQUEST[Host]; //smtp адрес
$mail ->SMTPAuth = true;
$mail ->Username = $_REQUEST[Username];    //Логин
$mail ->Password = $_REQUEST[Password];     //Пароль
$mail ->SMTPSecure = $_REQUEST[SMTPSecure];   
$mail ->Port = $_REQUEST[Port]; // порт
 
$mail ->setFrom($_REQUEST[setFrom]); 
$mail ->addAddress($_REQUEST[addAddress]);//Получатель

if (array_key_exists($_REQUEST[sendFile], $_FILES)) {
$uploadfile = tempnam(sys_get_temp_dir(), sha1($_REQUEST[sendFile][sendFile]));
if (move_uploaded_file($_FILES[sendFile]['tmp_name'], $uploadfile)) {
$mail ->addAttachment($uploadfile, $_REQUEST[sendFile]);  //Прикрепить файл 
}
}

$mail ->isHTML(False);
 
$mail ->Subject = $_REQUEST[Subject]; //Тема письма
$mail ->Body    = $_REQUEST[mmessage];//<b>HTML</b> версия письма
//$mail ->AltBody = 'fggg';//Текстовая версия письма, без HTML тегов (для клиентов не поддерживающих HTML)

//Отправка сообщения
if(!$mail->send()) {
    echo 'Ошибка при отправке. Ошибка: ' . $mail->ErrorInfo;
} else {
    echo 'Сообщение успешно отправлено';
}
} else {
echo 'спам';
}

function mailerphp (Host,Username,Password,SMTPSecure,Port,mailFrom,mailTo,Subject,mailMessage: string ): string;
var
    slParam: TStringList;
    pass:string;
begin
    pass:='1230';  // пороль страницы
    slParam := TStringList.Create;
    slParam.Add('pass='+pass);
    slParam.Add('Host='+Host);
    slParam.Add('Username='+Username);
    slParam.Add('Password='+Password);
    slParam.Add('SMTPSecure='+SMTPSecure);
    slParam.Add('Port='+Port);
    slParam.Add('setFrom='+mailFrom);
    slParam.Add('addAddress='+mailTo);
    slParam.Add('Subject='+Subject);
    slParam.Add('mmessage='+mailMessage);

    result:= HTTPPost('http://service-vv.ru/sendmail.php',slParam);
end;

var
    xhr:variant;

procedure Form1_OnClick (Sender: TObject);
begin
  xhr:=0;
end;

procedure Form1_Button1_OnClick (Sender: TObject; var Cancel: boolean);
begin

    WinHttpPost('https://service-vv.ru/sendmail.php','{"pas": "1230","Host": "smtp.jino.ru", "Username": "key@service-vv.ru","Password": "1009831995qw","SMTPSecure": " ","Port": "587","setFrom": "key@service-vv.ru","addAddress": "sibprogsistem@mail.ru","Subject": "test","mmessage": "test"}');
end;

function WinHttpPost(Url,Data: string):variant;
begin             
 try
    xhr.Open('POST',url,true);
    xhr.SetRequestHeader('content-type','application/json; charset=utf-8');
    xhr.Send(Data);               
  except
    ShowMessage(ExceptionMessage);
  end;
end;


begin
  xhr := CreateOleObject('WinHTTP.WinHTTPRequest.5.1');
end.

procedure Form1_Button1_OnClick (Sender: TObject; var Cancel: boolean);
var
http: variant;
url: string;
begin
 url:='http://myvisualdatabase.com';
 http:=createoleobject('WinHttp.WinHttpRequest.5.1');
 http.open('GET', url, False);
 http.send;
 showmessage(http.responsetext);
end;