[Amon Amarth]

вот события

Код:

procedure TAppForm.btnstartClick(Sender: TObject);
begin
 Server.Open;
 ServerLog.Lines.Add(DateTimeToStr(Now)+': Server succesfully started!');
 Status.Caption := 'Enabled'; Status.Font.Color := clGreen; btnstart.Enabled := false;
 btnstop.Enabled := true;
end;

procedure TAppForm.btnstopClick(Sender: TObject);
begin
Server.Close;
 ServerLog.Lines.Add(DateTimeToStr(Now)+': Server succesfully stopped!');
 Status.Caption := 'Disabled'; Status.Font.Color := clRed; btnstart.Enabled := true;
 btnstop.Enabled := false;
end;

procedure TAppForm.btnclearlogClick(Sender: TObject);
begin
 ServerLog.Lines.Clear; ServerLog.Lines.Add(DateTimeToStr(Now)+': Log was cleared by owner!');
end;

procedure TAppForm.ServerAccept(Sender: TObject;
  ClientSocket: TCustomIpClient);
var
  Line: String;
begin
  Line := ' ';

  while ClientSocket.Connected and (Line <> '') do
  begin
    Line := ClientSocket.Receiveln();
    ServerLog.Lines.Clear; ServerLog.Lines.Add(Line);
  end;
  ClientSocket.Sendln('HTTP/1.0 200 OK');
  ClientSocket.Sendln('');
  ClientSocket.Sendln('<h1>Server is busy</h1>');
  ClientSocket.Close;
end;

end.