[Delphi] Клиент-сервер

[Reaper052]

Здравствуйте. Имеется код

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
TCPServer1.LocalHost:=ME.Text;
TCPServer1.LocalHost:=ME2.Text;
TCPServer1.Open;
BitBtn2.Enabled:=true;
BitBtn1.Enabled:=false;
end;

procedure TForm1.BitBtn2Click(Sender: TObject);
begin
TCPServer1.Close;
BitBtn1.Enabled:=true;
BitBtn2.Enabled:=false;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
TCPServer1.close;
end;

procedure TForm1.TcpServer1Accept(Sender: TObject;
  ClientSocket: TCustomIpClient);
  var s:string;
  begin
  windows.Beep(500,100);
  mlog.lines.Add( 'Ïðèñîåäåíèëñÿ '+
  ClientSocket.LookupHostName(ClientSocket.RemoteHost) +
  ' (' + ClientSocket.RemoteHost+ ')');
  repeat
  s:= ClientSocket.Receiveln;
  mlog.Lines.Add( ClientSocket.LookupHostName(ClientSocket.RemoteHost) +
  ' (' + ClientSocket.RemoteHost + ')'+' ïðèñëàë ' +s);
  if s='HELO' then ClientSocket.Sendln ('Hi '+ ClientSocket.LookupHostName(ClientSocket.RemoteHost) +
  ' (' +ClientSocket.RemoteHost + ')');
  if s='DATE' then ClientSocket.Sendln('Today is '+DateToStr (now()));
  if s='TIME' then ClientSocket.Sendln('Now is '+TimeToStr (now()));
  until (s='EXIT') or (s='');
  mlog.Lines.Add( 'Îòêëþ÷èëñÿ '+
  ClientSocket.LookupHostName(ClientSocket.RemoteHost) +
   ' (' + ClientSocket.RemoteHost + ')');
 end;

Тут интерфейс

Есть 2 вопроса:

-Почему не появляются записи в memo?

-Как на сервер отправить команды типа "HELO" "DATE" и т.д. чтобы получить ответ в memo?

Заранее спасибо.