function GetData(AItem: TListItem): String;
var
  i: Integer;
begin
  Result := AItem.Caption;
  for i := 0 to AItem.SubItems.Count-1 do
    Result := Result + #09 + AItem.SubItems.Strings[i];
end;

온라인상으로 검증없이 해본것이라... 오타가 있을 수도...

받은 쪽에서 TAB문자 단위로 잘라서 도로 넣어야 겠지요.

하루 님이 쓰신 글 :
: 서버쪽 LisView에 있는  리스트 목록을 클라이언트로 보내려고합니다.
:
: writeln으로 보내려면 string형태로 보내야하는데 ListView에 있는 ListItem항목들을 어떻게 보내는지 모르겠습니다.
:
: 알려주세요...