Помочь найти проблему в коде delphi

Задача: отправить через канал http структуру json с данными на определенный

сервер. У меня в ответ после отправки приходит ноль. что не так в коде?

fs :=

'{''TS_NAME'':''A'',''TS_TYPE'':''AB'',''ORG'':''AAA'',''SDT'':''2015-06-18

09:15:15'',''LONGITUDE'':''65.8777'',''LATITUDE'':''57.1888'',''SPEED'':''70'',''COURSE'':''29''}';

lRequest := TStringStream.Create(fs, TEncoding.UTF8);

try

HTTP.Request.ContentType := 'application/json';

HTTP.Request.Charset := 'utf-8';

try

Memo1.Text := HTTP.Post('http://www.domain.com/data/', lRequest);

ShowMessage('GGG');

except

on E: Exception do

ShowMessage('Error on request:'#13#10 + E.Message);

end;

finally

lRequest.Free;

end;