var
 MyForm:TCLForm;
 MyHttp: TclHttp;
 str:TclStringList;
 edtUrl : TclEdit;
 memoBody, memoResult : TclMemo;
 postBtn, getBtn: TclButton;
 
 void getClick;
 {
  try
  {
    memoResult.Text = MyHttp.GetRequest(edtUrl.text);
  }
  except
  {
    ShowMessage('Bir hata oluştu! : ' + LastExceptionMessage);
  }
   
 }
 
 void postClick;
 {
  try
  {
    str=Clomosy.StringListNew;
    str.add(memoBody.Text);
    memoResult.Text = MyHttp.PostRequest(edtUrl.Text,str);
  }
  finally
  {
    str.Clear;
    MyHttp.Free;
  }
 }
 
{
MyForm = TCLForm.Create(Self);

edtUrl = MyForm.AddNewEdit(MyForm,'edtUrl','Write Http Url');
edtUrl.TextSettings.Font.Size = 20;
edtUrl.Align = alMostTop;
edtUrl.Text = 'http://httpbin.org/post';

memoBody = MyForm.AddNewMemo(MyForm,'memoBody','Write Body');
memoBody.TextSettings.WordWrap = True;
memoBody.Align = alTop;
memoBody.Height = 250;

memoResult = MyForm.AddNewMemo(MyForm,'memoResult','');
memoResult.TextSettings.WordWrap = True;
memoResult.Align = alBottom;
memoResult.Height = 350;
memoResult.ReadOnly = True;


postBtn = MyForm.AddNewButton(MyForm,'postBtn','Post');
postBtn.TextSettings.Font.Size = 20;
postBtn.Margins.Left = 200;
postBtn.width = 150;
postBtn.Height = 50;
MyForm.AddNewEvent(postBtn,tbeOnClick,'postClick');

getBtn = MyForm.AddNewButton(MyForm,'getBtn','Get');
getBtn.TextSettings.Font.Size = 20;
getBtn.Margins.Right = 200;
getBtn.width = 150;
getBtn.Height = 50;
MyForm.AddNewEvent(getBtn,tbeOnClick,'getClick');


MyHttp=TclHttp.Create(Nil);
 

MyForm.Run;
}