ınsert yerine add kullansan olmuyomu

IdTcpClient : procedure TForm1. Button1Click ;beginidtcpclient1. host:='127.0.0.1';idtcpclient1. port:='3131';with idtcpclient1 dobegintryConnect ;exceptShowmessage ;end;end;end;procedure TForm1. Button2Click ;beginIdTCPClient1. Disconnect;end; Idtcpserver : procedure TForm1. FormCreate ;beginidtcpserver1. defaultport:='3131';idtcpserver1. active:=true;end;procedure TForm1. IdTCPServer1Execute ;beginmemo1. Refresh;end;procedure TForm1. IdTCPServer1Connect ;beginmemo1. Lines. Insert(0, AThread. Connection. Socket. Binding. PeerIP+': Connected');end;procedure TForm1. IdTCPServer1Disconnect ;beginmemo1. Lines. Insert(0, AThread. Connection. Socket. Binding. PeerIP+': Disconnected');end; benim sorunum procedure TForm1. IdTCPServer1Disconnect ;ne ypaarsam yapayım memo1. lines e x. x. x. : disconnected yazmıyor. yani çalışmıyor orası ama heryere baktım o kısımda sorun yaşayan bulamadım. ne yapmam gerekiyor. şimdiden teşekkürler

Showmessage bile yazsam olmuyor maalesef :(