delphi - Synapse lib を使用して ssl 経由で文字列を投稿する方法は?

Question

私はSynapse Libraryを使用していますが、今日は SSL を使用する Web サーバーにポスト リクエストを介して文字列を送信する方法を知りたいと思っています。

これが私の既存のコードです：

procedure TForm1.syn;
var
  Position: Integer;
  URL, Params: string;
  Response: TMemoryStream;
  SynHttp: THTTPSend;
  Socket: TTCPBlockSocket;
begin
  Response := TMemoryStream.Create;
  Socket := TTCPBlockSocket.Create;
  SynHttp := THTTPSend.Create;
  URL := 'https://gitlab.com';

  try
       Position := Pos('https', URL);
       if Position <> 0 then begin //
         SynHttp.Sock.CreateWithSSL(TSSLOpenSSL);
         SynHttp.Sock.SSLDoConnect;
         // Here i wanna do a Postrequest to the ssl webserver
       end
       else
       // Here i wanna do a Postrequest to the non-ssl webserver
  finally
    Socket.Free;
    Response.Free;
    SynHttp.Free;
  end;
end;

SSL Web サーバーに接続したいのですが、正常に接続された場合は、Web サーバーへの POST を実行したいと考えています。