سلام به همه اساتید ، آقا این کد یه برنامه Client هستش . ببینیدMemory leak داره یا نه ؟ ( فرض کنید Server فعال یا موجود نیست و Exception رخ میده )


Begin

      idTcpClient1 := TIdTcpClient.Create(nil);

      try

        idTcpClient1.Host := '127.0.0.1';

        idTcpClient1.Port := 1234;

        try

          idTcpClient1.Connect;

        except on E:Exception do

          begin

            Writeln(E.Message);

            Exit;

          end;

        end;

        try

          // send , receive data

        finally

          idTcpClient1.Disconnect;

        end;

      finally

        idTcpClient1.Free;

      end;

end.