[Noooob]

для первых 6 я пользуюсь

Код:

Msg := Socket.ReceiveText;
Cmd := Copy(Msg,1,6);
 if (Cmd = 'текст') then
begin
Text := Copy(Msg,Length('текст') + 1,Length(Msg) - Length('текст'));