1:

Server.Socket.Connections[0].Sendtext('hallo');                    

1:

Server.Socket.Connections[0].Sendtext('taschau');                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:

function GetWordOfString(Text: string; WordPos: Word): string;
var
 p : PChar;
begin
  p := PChar(Text);
  repeat
    Dec(WordPos);
    while p^ <> #0 do
    begin
      if WordPos = 0 then
         Result := Result + p^;
      Inc(p);
    end;
    if WordPos = 0 then Exit;
      Inc(p);
  until p^ = #0;
end;                    

1:
2:
3:
4:
5:
6:

s1 := 'hallo' + #0 + 'welt';
s2 := GetWordOfString(s1, 1);
{s2 = 'hallo'}

s2 := GetWordOfString(s1, 2);
{s2 = 'welt'}                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:

function StringToList(const AString: string; const AList: TStrings);
var
  P: PChar;
  S: string;
  Len: Integer;
begin
  Assert(Assigned(AList));
  P := PChar(AString);
  while P^ <> #0 do
  begin
    Len := StrLen(P);
    if Len > 0 then 
    begin
      SetLength(S, Len);
      StrLCopy(PChar(S), P, Len);
      AList.Add(S);
    end;
    Inc(P, Len+1);
  end;
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:

var
  List: TStringList;
  S: string;
  I: Integer;
begin
  S := '1. Eintrag' + #0 + '2.Eintrag' + #0#0; // Wichtig: 2 Nullen am Ende
  List := TStringList.Create;
  try
    StringToList(S, List);
    for I := 0 to List.Count - 1 do
    begin
      // Mach was mit List
    end;
  finally
    List.Free;
  end;
end;