Отправить\принять пакет TCPClient

[Amorality]

Спасибо, вот только есть некоторые трудности

Сначало пытаюсь разобраться с приемом пакета, в моем случае ( С выводом в Memo код будет таков?
try
IdTCPClient1.ReadBuffer(size, 2);
SetLength(pck, size-2);
IdTCPClient1.ReadBuffer(pck[1], size-2);
Memo1.Lines.Add(pck);
finally

Вот только зависает программа, когда нажимаю кнопку Connect Да так, что выключить ее можно только убив процесс, что делать ?

[xkor]

Amorality, я тебе для чего дал код функции StringToHex?
для того чтобы ты в memo выводил нормально...

try
IdTCPClient1.ReadBuffer(size, 2);
SetLength(pck, size-2);
IdTCPClient1.ReadBuffer(pck[1], size-2);
Memo1.Lines.Add(StringToHex(pck,' '));
finally

Добавлено через 1 минуту
Amorality, зависает кста в каком месте?, или ты трейсером пользоваться не умееш?

Добавлено через 2 минуты
зависает наверно из за того что ты читаеш данные до соединения с сервером а эти функции чтения будут стоять на месте пока не получат данные которые если соединение ещё не установлено или если все данные уже прочитаны взять неоткуда...

[Amorality]

xkor,
Так все равно зависает ..

На счет того, что я выполняю это до соединения с сервером, быть такого не может, тк все, что между try и finally выполняется после Connect; а Коннект удачный, это я проверяю выводом сообщения на экран.

Трейсером я пользоваться не умею и не знаю что это ..
Зависает сразу после нажатия кнопки Connect , пробовала оставить на кнопке Коннект только КОннект, а твою процедуру перенести на отдельную кнопку, но все равно зависает после нажатия этой отдельной кнопки!

[xkor]

Amorality, нажми F5 на первой выполняемой строке моего блока, запусти прогамму нажимай что надо и как тока программа дойдёт до этой строки она приостановиться и покажет дельфи, далее по F8 можеш двигаться вперёд и узнаеш на какой строке зависает...

[Amorality]

xkor,
Спасибо, что научил, вот на этой зависла:
SetLength(pck, size-2);

[NLObP]

Сообщение от Amorality

size-2

Может это не правильное значение принимает?