Can't close the application?

[tiger822]

I modify the code to let the program quits when receipted 'quit' , but it's not working properly: ` procedure TWebSocketDemo.Execute(AContext: TIdContext); var io: TWebSocketIOHandlerHelper; msg: string; begin io := TWebSocketIOHandlerHelper(AContext.Connection.IOHandler); io.CheckForDataOnSource(10); msg := io.ReadString; if msg='quit' then begin Destroy; exit; end; if msg = '' then exit;

writeln(msg);

io.WriteString(msg); end; `