var
MyForm: TCLForm;
edtUrl : TclEdit;
testLabel : TCLLabel; postBtn, getBtn: TclButton;
memoBody, memoResult : TCLMemo;
MyHttp : TclHttp;
str : TclStringList;
void getCLick;
{
testLabel.Text = MyHttp.GetRequest('http://httpbin.org/get');
}
void postCLick;
var
strList: TclStringList;
{
str = Clomosy.StringListNew;
str.add('deneme');
testLabel.Text = MyHttp.PostRequest('http://httpbin.org/post',str);
}

{
MyHttp = TclHttp.Create(nil);
MyForm = TCLForm.Create(Self);
postBtn = MyForm.AddNewButton(MyForm,'postBtn','POST'); 
MyForm.AddNewEvent(postBtn,tbeOnClick,'postClick');
getBtn = MyForm.AddNewButton(MyForm,'getBtn','GET'); 
getBtn.Margins.Top = 100;
MyForm.AddNewEvent(getBtn,tbeOnClick,'getClick');
testLabel = MyForm. AddNewLabel(MyForm,'testLabel','Değer');
testLabel.Align = alBottom;
testLabel.Margins.Bottom = 100;
testLabel.Height = 400;
MyForm.Run;
}