A free pascal sample post procedure in a TForm

post.pas

procedure TForm1.OnPost(Sender: TObject);
begin
  { Translate text test }   
  httpClient := TFPHTTPClient.Create(nil);
  httpClient.RequestBody := TRawByteStringStream.Create(Memo1.Text); 
  ResponseRest := TStringStream.Create('');    
  try
     try
        httpClient.Post('<REPLACE WITH YOUR URL TO REST POST API>', ResponseRest);
        Memo2.Lines.Add('Response Code is ' + inttostr(httpClient.ResponseStatusCode));
        Memo2.Lines.Add(httpClient.ResponseStatusText);
        Memo2.Lines.Add(ResponseRest.DataString);
     except on E:Exception do
        Memo2.Lines.Add('something bad happened : ' + E.Message);
     end;
  finally
    httpClient.RequestBody.Free;
    httpClient.Free;
  end;
end; 

{
"to": "ja",
"from": "en",
"audio": false,
"text": "this is my name"
}