Передача параметров серверу в idHTTP

[C_R_E_S_C_H]

Хочу передать серверу строчку

{"f":["vk'+(Edit1.Text)+'"],"i":"vk'+(Edit1.Text)+'","k":"'+(Edit2.Text)+'","l":"","s":{"d":"'+(Edit3.Text)+';NaN;ru_RU;0;;","i":"vk'+(Edit1.Text)+'","l":"ru-RU","n":"'+(Edit1.Text)+'","u":"http://cs4382.userapi.com/u41649419/a_5014f5f6.jpg","x":"NaN"},"u":"vk'+(Edit1.Text)+'","v":251,"w":40}

если за место едитов вставлять данные то компилятор говорит что строчка длиннее 255 символов.
Если оставит едиты то она программа компилируется но ищет какойто путь в папке с екзешником программы

Вот полный код для процедуры

procedure TForm1.Button1Click(Sender: TObject);
var
pac:string;
begin
pac:='{"f":["vk'+(Edit1.Text)+'"],"i":"vk'+(Edit1.Text)+'","k":"'+(Edit2.Text)+'","l":"","s":{"d":"'+(Edit3.Text)+';NaN;ru_RU;0;;","i":"vk'+(Edit1.Text)+'","l":"ru-RU","n":"'+(Edit1.Text)+'","u":"http://cs4382.userapi.com/u41649419/a_5014f5f6.jpg","x":"NaN"},"u":"vk'+(Edit1.Text)+'","v":251,"w":40}';
idHTTP1.Request.CustomHeaders.Values['locale-name']:='ru-RU';
idHTTP1.Request.CustomHeaders.Values['client-ver']:='client-ver: 252';
idHTTP1.Request.CustomHeaders.Values['server-method']:='SignIn';
idHttp1.Request.ContentLength:=length(pac);
idHTTP1.Request.CustomHeaders.Values['sign-code']:=SKGenerate(pac,Edit1.Text,Edit2.Text);
Memo1.Lines.Add(idhttp1.post('http://209.190.120.218/Geo/Segment01/segment.ashx',pac));
end;

Как мне это исправить?

[Stilet]

но ищет какойто путь в папке с екзешником программы

Полностью текст ошибки.
И сдается мне что нужно так:

var
pac:TStringList;
begin
pac:=TStringList.Create;
pac.text:='{"f":["vk'+(Edit1.Text)+'"],"i":"vk'+(Edit1.Text)+'","k":"'+(Edit2.Text)+'","l":"","s":{"d":"'+(Edit3.Text)+';NaN;ru_RU;0;;","i":"vk'+(Edit1.Text)+'","l":"ru-RU","n":"'+(Edit1.Text)+'","u":"http://cs4382.userapi.com/u41649419/a_5014f5f6.jpg","x":"NaN"},"u":"vk'+(Edit1.Text)+'","v":251,"w":40}';
idHTTP1.Request.CustomHeaders.Values['locale-name']:='ru-RU';
idHTTP1.Request.CustomHeaders.Values['client-ver']:='client-ver: 252';
idHTTP1.Request.CustomHeaders.Values['server-method']:='SignIn';
idHttp1.Request.ContentLength:=length(pac);
idHTTP1.Request.CustomHeaders.Values['sign-code']:=SKGenerate(pac,Edit1.Text,Edit2.Text);
Memo1.Lines.Add(idhttp1.post('http://209.190.120.218/Geo/Segment01/segment.ashx',pac));
pac.free;
end;

[C_R_E_S_C_H]

Извините тут мой косяк сейчас заново прошел снифером и разглядел там массив (видимо до этого сказалось пара банок пива и 4 часа утра) масив ответа на этот запрос выглядит так:



Тогда другой вопрос как создать примерно такой массив где в ячейках массива могут быть разные типы данных и другие массивы?

[Stilet]

Я Джейсон не знаю...

[C_R_E_S_C_H]

Как сейчас разобрался тут используется тип записи record а json это просто показана структура записи