......
procedure TMyChat.SendCommand(s:string);
begin
TcpClient1.Active := True;
 try
   if TcpClient1.Connect then
     begin
     TcpClient1.Sendln(s);
     Edit.Clear;
     end;
 finally
   TcpClient1.Disconnect;
 end;
end;
.............
procedure TMyChat.Button1Click(Sender: TObject);
var
c : boolean;
begin
Display.Lines.Add(Edit.Text);
........
if UpperCase(Edit.Text) ='DIR' then
Begin
SendCommand('Command : DIR');
c:=true;
end;
..........
procedure TMyChat.TcpServer1Accept(Sender: TObject;
 ClientSocket: TCustomIpClient);
var
.......
begin
try
CurrentCommand:=ClientSocket.Receiveln;
Display.Lines.Add('Server : '+CurrentCommand);
.........
if CurrentCommand='Command : DIR' then
begin
   GetDir(0,CurrentDir);
   SEndCommand('Директория : '+CurrentDir);
   SEndCommand('-------------------------------------');
  if FindFirst(CurrentDir + '\*.*', faAnyFile, tt) = 0 then
  begin
    repeat
      if tt.Attr = faDirectory then
      SendCommand('[DIR]'+tt.Name)else
      SendCommand(tt.Name+' [Size : '+inttostr(tt.SIZE)+']');
    until FindNext(tt) <> 0;
    FindClose(tt);
  end;
   SEndCommand('Конец-------------------------------');
end;
......
except
  on E:Exception do
  begin
    if ClientSocket.Connected then
      ClientSocket.Sendln('-ERR Raised exception with message: '+E.Message)
    else
      raise;
  end;
end;
CurrentCommand:='';
end;

finally
  TcpClient1.Disconnect;
end;